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(54) Method and apparatus for finding and selecting a desired data item from a large schedul 
of data items using a TV set and a controller similar to a TV-remote-control 



(57) An apparatus and method tor presenting a 
viewer with an overall representation of the present 
number of entertainment programs available for selec- 
tion given one week of program schedule data for 300 
or more channels and one or more filtering criteria to 
limit the number of items represented in the overall rep- 
resentation. Sequentially applied filters will filter the 
group of program schedule data items that has at least 
100 000 halt hour time slots offered by 300 channels 
each week into a smaller subgroup where individual 



consideration of each item of the subgroup can be made 
in a reasonable time. A set top box drives the display of 
overall representations or results of filtering criteria on 
a commercial TV set. Once a reasonable sized sub- 
group is obtained, other displays provide specific infor- 
mation of the program offerings of the subgroup. Selec- 
tion of the filtering criteria and selection from within a 
subgroup is interactively made by a viewer through the 
use of a controller that looks and operates very much 
like a TV remote control. This makes the interaction fa- 
miliar, easy and predictable. 
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D cripti n 
Tgchnj alFl Id 

s The invention concerns a method and apparatus for subjecting a targe schedule of data items having multiple 

attributes to consecutive selection criteria in order to reduce the number of individual programs to a manageable group 
which can be visually searched for a desired data item having a selected subset of the attributes, and more particularly 
to an apparatus and method which use an interactive control having directional buttons and a select button that are 
used in conjunction with an interactive display viewed on a normal television set to select the desired data item. 

10 

Description of the Prior Art 

Presently there are known methods for reducing a large quantity of data into a manageable set of data which can 
be visually searched for a desired item by a decision maker. One example of such a large quantity of data is a directory 

*5 of a fixed drive of a computer system. Methods implemented through interactive graphical user interfaces for personal 
computers and workstations display and reduce disk drive directories to root directory displays which typically show 
root level files and one or more branch subdirectories for the user's selection. Upon selection of a subdirectory, usually 
by a mouse, the display typically shifts showing files of the selected subdirectory and sub-subdirectories for further 
selection. The subdirectory display is often too big to fit on the screen, so interactive scroll bars are typically provided 

20 so the display may be controlled by a mouse. Using the mouse and the scroll bars, a user may work down the directory 
tree structure until the desired file is found. Such graphical user interfaces are common for computers and monitors 
where visual definition is typically at least 640 x 480 pixels for each display Such techniques might be used in homes 
to access databases of useful information, such as airline schedules, television programming schedules and movie- 
on-demand catalogues. Unfortunately, each home does not have a computer or work station with 640x480 pixel defi- 
es nition which could take advantage of such existing databases. Further, the NTSC television set which almost every 
home has in its living room has relatively low viewing definition compared to 640 x 480 pixels or more per screen 
definition of computer monitors. Moreover, the typical home television set is not connected to a mouse, which is not 
an appropriate pointing device for the living room, rather most television sets have controls on control panels and/or 
on a remote controls. If just a fraction of these home television sets were used to find and select airline ticket reserva- 

30 tions, programs to watch on 300 hundred or more channel cable television services, or pay-per-view movies from a 
vast collection, the profitability of the service providers and the satisfaction of the users would both be improved. The 
300 plus channels mentioned, may use any type of transmission scheme that will deliver information via a cable or 
wireless path and includes but is not limited to time division multiplexed channels, frequency division multiplexed chan- 
nels and packet data multiplexed channels. 

35 One known approach for the TV programming schedule is to display the presently showing programs along with 

the next subsequent programs for the next hour or so, on what is referred to as a preview channel. Because this is 
more information than can be legibly displayed on one television screen at once, the preview channel display often 
scrolls through all the channel offering for the present time and the near future. For a sixty channel system, one complete 
scrolling takes about three minutes. At such a rate, a one hundred channel cable service would take five minutes and 

•to the future three hundred plus channel cable services would take 15 minutes. Needless to say, three minutes is a long 
time, but acceptable because breaks between programs are about that long. Five and fifteen minutes time periods 
though represent a substantial portion of a 30 minute program and are simply too long to expect a TV viewer to wait. 
The alternatives of speeding up the scrolling rate or using smaller size letters for descriptions are not practical either 
because either of these actions reduces the ability of the viewer to read and understand the schedule. Thus, there is 

45 a need in the art for a method and apparatus that allows a viewer to quickly find and select a desired data item from 
a large schedule, in this case a TV program for viewing from a TV programming schedule for 300 plus channels over 
the ensuing hours or even days. There is a similar need for a method and apparatus, very similar to the TV program 
selector, for finding and selecting a movie to order from movies-on-demand, or an airline flight(s) for a trip. It would 
further be desirable to use a method similar to the TV program selector to find and select a file in storage assets 

50 accessible by the apparatus to be executed, updated or deleted as part of file maintenance. 

It is an object of the present invention to provide a view of a large schedule of data items and interactive selections 
of subgroups of the large schedule of data items in order to arrive at a screen display with sufficiently small number of 
items and sufficiently legible descriptions of each item to provide a viewer with an opportunity to make a reasoned 
selection therefrom. 

55 a is another object of this invention to provide a method for interactively selecting a data item from a large schedule 

of data items by means of sequentially applying different filtering criteria using an interactive control having an operation 
appropriate for use with a television set. 
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resulting subgroup of th m2S£ £ ZZ T?? 9 5 f nnbUleS " #toctod by '° in,eractive viewer in P"* The 
selects JJSSri^ W - j ~V 

pointing means for7pec"ying a £aZ fn STdSSS It T T" 8 ^ m6anS ^ inter ^e movable 
apparatus includes a HltratL niaS Sul«!uhS , ^ mak ' n9 3 Se ' eC,i0n 31 a S P eci,ied localion This 
of a subgroup ip^^Zl^^ ^'T ,he diSplay meanS and is ^^ponsive to selection 
subgroup'speX means" fo "TT SUb9rOUP by ,he S9lecled 

in the display means: and group Mm^fS^^J^ Mon ^ to at least a portion of the subgroup 
in the display in response to^SSSSSlS^ ° * Se ' eC,ing ,hS W™™™ thereof 

vJJSirSSiySS r p ;ZT n ThrmeZ men !^ ed ° bjeC,S ^ ^ 3ChieVed by P ' OVidin 9 a *» a 

- 300 individua. connate f^^^^ ™™ *- tor a. least 

a database format in order to expedite lamr sorttltnH , . d pr ° gram schedu,e da 'a * stored locally in 

Brief Descriptio n of the Drawing 

FIG. 2 is a simplified block diagram of the set top box. 
FIG. 3 is a pictorial of a controller as shown in FIG. 1 
FIG. 4 is a pictorial of a top most selection interactive display 
FIG. 5 .s a pictorial of a second level selection interactive display. 
FIG. 6 is a pictorial of a third level selection interactive display. 
FIG. 7 is a pictorial of a first level selection query display 
FIG. 6 is a pictorial of a second level selection query display 
FIG. 9 is a pictorial of another third level selection query display. 

criJil 10 ,S " PiC, ° r "' 01 3 djSPtey Sh °™ 9 3 SUb9r0Up ° f P^ams —ting the Sports. All and On Now sorting 
-JSiS - - and On Now 

F o 3 I I P £T\°\ a ? P ' ay Sh ° WinQ 3 SSCOnd level Se,ec,ion 'Miction display, similar to FIG 5 
reduced rlpreVenS' °' 8 *«' ^ ^ very many programdata ifems shown in 

FIG. 14 is a pictorial of a third level selection query display, similar to FIG 9 
jtem F,G. 15 ,s a pctona. of a two-dimensional interactive grid disp.ay filtered down to a manageable number o, data 
FIG. 16 is a pictorial of a first alphanumeric interactive display. 

Si : ~-^s^^rssr 

co,u™ £££5ZZ e «Z SZ» HIST c,ive ** h l09ea ' ,hird < " mw>stoal slacks "» - — 
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Referring now ,o FIG. -. a urievision se, <TV> ,0 is con™*,* no ^ «*^ 2 ^'^^ b W 
,4. STB 1 2 is also conneeled lo cable .6 whicri « J^"" ^ ^se A conuolie, 20 is linKeO 

'°' V Relerring now to FIG. 2. STB 12 will ^^'^^^^''^^^^'j^J^^^^^^^jj^ate'^i^^J^ig^k^w^cket 

^rs^r^^ 

34 will be processed through cable interface 30 to cable 16. ROM 38 

,n addition to bi-directbna. ^^^^^S^jS^^^ STB 12. RAM 

contains an operating program that is executed f by ^ r U m !i2 ^Z' Z of the operating program as executed by CPU 
40. among other things, provides storage space (or ,n ! e ;^ ed '^ response to the operating program 

34 RAM 40 provides storage for data that >s recced from cat J*££ for data, larger RAM devices and/ 
and viewer inputs from controller 20 (shown ,n FIG. 1 ). ^^.^^c^tus 32 (not shown). To receive 

3:: connected to and dnves STB dispfcy 48 via bus 46 with U> >ook and operate like a 

FIG. 3 illustrates a preferred embodiment of the controHer ^^^^^^^c keypad 50 having 
standard remote control of a TV or a video cassette ^^^^Z^rZZ. a leU 'pointing arrow 
number keys 0-9. Controller 20 has an up arrow 52, a do wn a row SA «yj«M^ cance| (X) 

58. a double up arrow 60 and a double down arrow invention are controlled 

button 66 and a query (?) button 68. All i^eracttons wtth th^ £^T^^oEKino one of these buttons will 

tSttJtS^Z* so its use wil, be familiar, P red,ctab,e 
and intuitive to the viewer using it. surface of the present invention: those used 

next few hours (all channels), and filter the d.splay to show only sports, ^J*^^*^ seleclea , tne vje wer 

program are examples of the use of the second class of graph^al ^*^ e " * order to ultimately 

P Note, that in both cases the viewer is required to nav.ga ^through , interlace according to the 
select a desired program The interfaces are kept ^/^^ appearance. In 

substructure. Hicr.i*v/s referred to as a 'flame', which functions as a status 

d isT^^ 

402 havmg a tab labeled B *9' n TV °" ' M ^ a '^ Sn pp ,ng 416. and Last Shop 418 which when 

rate—:, r xsr « ™ y ^ * - — 



35 



^5 



SO 



55 



4 



EP 0 735 749 A2 



buttons 52-56 and double arrow buttons fin «o „, 

•he top of which .ndica.es the design^ 20 ^ ,He Card menu *» * surrounded by a frame 420 

^9h.ed. a se.ec.ion is made by actuate Tl~ w° ?Z Z V hi9h,i9h,ed an active area has been htoh 
by actuating the . ,ec« (,) button 64.T?^XS2?5l ^ *' *" ™ bUUOn 410 is ^own to be ac. 'e" 
* over ay.ng of the disp.ay 500 over me displaylo ZoZ „ FT 2° 5 appears This prance is a 

d-sp te y ,s appearing on the screen of the TlO ^TSZlT* 400 * n °' ViSib ' e White an * "°9W% ove .ay la 
d.spteys are canceled, I.e. by actuating the cancel Sr^ 9 ^ ViSib ' 6 a9ain if a » * « b * Really ove rla ng 
.« -s P oss,b.e for the viewer to work his or^X^^ 
^ appropnate number of times. W3y baCk to dls ^ 400 by actuating the cancel (X) button the 

to a^'JSSS K^SKS t e Sb aS ,r ~* m - 502 — — appears 
can be accessed are TV shows, such as *2£?2£ "S?2 Be9in " ^ ■ abe ' TV indica,es «"« items ma! 
shows, sports, and so forth. Since movies andThopS' w er ! ^ T"***- S6ria,S ' re9 ° ,ar vari *V ^ows game 
grams may be filtered out in whole or in part RleSS ml °' ° ,her '"'^active buttons, these types ofo^o 

days 506, Coming Up 508. Weekend ^sTo an^ch .T/? ^ in ' eraC,iVe buWons tebe ^ On NoVsS w k* 
an active area that can be moved by ^l^ b ^J^ 0 ^ the fite ca ' d ™™ «* file card Zefu 502 has 

reduced repres^onSOS ^telel^ ^ *** in this "'^.ration is 6 30 p m A 

representafon 602 presents each program that 7^LT n ° PfeSem ,ime a *P eafS in FIG. 6 The reduced 

reducec .representation, up and down *e VltZZ™^ * TV ^ ite ™ 

of the acve area along the reduced representation 602 is 6 °" N ° W SUb9rou ? in sin 9'* steps. Motion 

the down arrows 62 move this selection window604 r^nT* ? S '° na '' 6i,her up ° f d°wn. The up arrows 60 and 
•ncrements of six. The individual items ^Zan^t^T^ ° P and d ° Wn reduced represent^ 602^n 
wind 8 ° Ut ° f ,hS r6duCed -PresenlT^^: ru^"^ 0 " 604 r6presen « a '""ne Tubgroup 

torrn allows the viewer to read the titles of £e oro^mfnrJ ,? l ° reduced ^Presentation 602 This laroer 
shade codingor color coding, of each ^L^n^ZnelTolT " ^ ^ 606 ^ visible cJng i.e g ? ay 
between the various types of programming offend ^ ,0rm ' n 9nd *P* 606 to aid the viewer difference 

5 p i^rr~- 

ZZt? 3n i,em " ,OCa,ed within^ctteteaslos 607 TST r^ ^ ,he Se ' ec,ion winded up 'x or 

r!m Channe ' number ' and the exact start and sfoo , ,n,0rma,ion ' s «ch as the TV channel call siqn 

RAM 40 and dispteyed in the top of a frame 610 * ZTeoo uV^ * 0m ,he P ro **™<«9 database sto eiTn 
prevtew of e,ther a short text description or a brief s i., 2 If I h ° 8 ' ,eCt ( > bu,,on 6 4 * actuated at this time a 
prevews are stored in RAM 40. A second ££JEl£25 T° 7^ 9rid dispte ^ 606 Th« data To "ese 
2 a 5 T ,h ! aC, " e area 604 <* -duced'rep e? n,a"n^o1 ^^^^'-..y selects the highlight 

o evls n° r l 6 "T arf ° W 54 iS actuated >b « respeSve TevPew r. h ? w 1 ' 9 "^ h 9rid disp,a y 606 tb « "P 
d^Z Prev,ewed rtem is s «»eced. The information Tn ,h?/ t 7? Pr ° 9ram ttem up or from the 

S;? 9 , ^n« m " P ° r also Ac,u ^*on of the cancerbutt^ t . P ° f the ,rame 610 wil1 ^9* to the next 
d,sptey 600. The bottom of the frame 6! 0 lists the characterises 5 IhlT' ^ VieWer ,0 the previous arrangement o 
Tne^LT^ (?> bU,, ° n 68 * S ac,ua,ed ' lba 9^ ^SS^J^^^^^^^^^iom^ 
actual P men ° h3S ^ bu,tons - « explained belo^ c^e of ^ f ^ " y 8 9en*ra.i 2 ed help menu. This 

f^rss: ^^rr -F 8 ^^^ bu " " ,he view bu,,on is 

button 68 of contro., r 20 causes disp.ay "STo appe^Th^ * Ca,e90,V Wi " be d6SCribed Act ^«,on of the qu ry p, 
a he, P button 702. a categories button 704. a WewTutt^ ^ouVon^T ^ 1 »' * dis P' a V "ooVai 

a oegm button 708. a favorites button 710. and a user 
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outton 71 2 . An act-ve are, shown on categories won 70™. by the a„ow 

view button 706 has been discussed in regard to FIG. 6 and wil 1 not be > 7Q8 a>mM tne begjnning 

702 causes a menu of specific help functions to be iSJSqSSL. Actuation of the favorites 

menu to be displayed, i.e. it takes the vewer back ■^EE^SES^Lr be accumulated by the CPU 

809 corresponding to Favorite, Information. Enterta.nment. Moves, Sporty N^-on no ^ 
ries of programming. The buttons 801 -809 may be have an active area "^^I^Z^ immeaia ,el y . The 
numerfc keypad may be used as a set of hot keys to move the act.ye a rea to the des, ed category ^mme y 
buttons B01400 arete* out in a 3x3 row and column arrangement ,u > the same hjj*. 9 ^^^e area to 
, arranged. Thus. w«h^ 

the button in the third column and third row, i.e. button 809 the key rnv* >u» subsequently pr0 vide narrower choices, 
9. of keypad 50 is actuated. The button 809 un.,ke the other J^^n,^?S^a is around Sports button 

gives another ^-^^Sta— «3J shown fri FIG. 9 would appear. FIG 9 is 
805 as shown in FIG. 8, and the select ( ) ounon J* F Q 8 Movemen t of the active area 

shown in FIG. 10. to replace, i.e. logically overlay, display rQOa ^ as shQwn 

2S Referring now to FIG. 10. a filtered display or TV ^[T^LTte^es^L 1002 is shown. Reduced rep- 

in FIG. 10. that are Sports programs showing All previously by the sheer 

resentation 1002 has sofewentries that characer^ 

number of programs represented can now be decerned Fo r tne P , am Sen/or PGA Golf The 

Week In the NBA is shorter on the left s,de than mentr card 2S??6-30 p m. . while the program Senior 

a, reason for that difference is that the program TM. Week '^^Z^oJ^e the title of Senior PGA 
PGA Golf started at an earlier time as designated ^^J^*J^^^ yrbolh end a t the same time, the 
Golf /n selection window 1006 Since This Week in ^^^'^^^^ 0 r navigation of the 
right skies of their reduced representations 1003 and 1004 en I at ^the Mjtea «r » g ^ ^ 

active area 1005 along the reduced representation 1002 is by means o control tor ZD " e » T rectangular 

fne six trt.es shown in selection window 1006 has* .respects rectengi ^S^^XSl^ ™ ass0 cLd 
regions 1010-1015 are shaded differently according to the type of sports ' JJ"" visual key to the type of 

Th'ese different shades of gray, or different coiors if the display 

sport that corresponds to each of the six titles. Actuating the ^elec if/) button 64 of con^ 1 ^ 

mat caused display 1000 lo be shewn was made^ as <^'*~J" „££^;i a ' in M d , sp iayed. Funhef. il view 
68 is ae,oa,ed men m. dispiay ' 700 .» n STE^^lS-* <L lay dieplay 700. 

and over lay display 1200. resoectivelv labeled with two attributes of the of the 

so In display 1 300. two coordinate axes are shown which a ?2J^^^h2««te and timeslots for the next 24 

selected subgroup of data items. The two attributes £Z seated eac ^sports program showing on 

timeslots, i.e. 12 hours, coming up. Since the all sports ^^^^ S ^%l^ P £ac ^ns program up- 
one of the 300 plus channels within the ^Jf^^ ^SSSrSff^^l the program 
coming is represented by a rectangular 'card located in i the row 9 
55 and in the co.umn(s) representing the timeslot(s) ^JT%»*™^£^ ^a 1 302 among the cards 
sentatk>n of the data item for £<«P^ respec- 
cancer ™y -a items in the subgroup to individual, consider 
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. e Sr« Z d S ? hef ,i,,erin9 ' 6i,her 5y 8 Sh ° rter ,imS Peri0d ' ' 6 °" Now or a category. 
dfJS!™?! ^ change to a narr °wer category, the viewer presses the query (?) button 68 which causes 

(shown in FIG j) to be displayed. Next, categories button 704 is selected which causes ^splaTgoo (shown 

Th J i i b ? 1 d '? Pla ^ d N ?2' baSke,ba " bUUOn 903 is se,ecled which disp.ay 1 500 of FIG 1 5 to oeTsplaTd 

The C mlng Up t.me f.lter of FIGs. 1 2 and 1 3 has not been changed, so display 1 500 shows the ^kl^l o^ms 

oro m o X P 1 ]r h ° UrS AS ^ bS S6ea thS to**™*"* 9rid display 1 500 con^JS^SS^S^ 

SET ^ Ch ^ SU,,lc,en,| y sma » 10 ™iew aa <* item individually in a reasonable time period Itov^a^Tea 
1502 around <vw-d,mens,ona. grid display 15 00 with the up and down arrows 52, 54 and/or the rig* Ind teS arrows 
56, 58 causes the title and channel of each program ,o be displayed in the top of the frame of diSav 1500 to afsTst 
NBA^nri"? 9 T Se,ec,ion process *» ^P'e. tne program highlighted by'ac.ive areT ISO ^This Week fnTe 
NBA and it ,s showmg on CNN. Thus, by selective filtering the unwieSly disp.ay 1300 of programs showTrFIG ^3 
Reduced to a manageable handf u. of display 1 500, which the viewer can navfgie through indSaVy ^i^S^ 

m ain ?n?f rrin9 n ° W , t0 F,GS 16 " 23, an0th6r 3Spect of ,he ? resenl inven,io " will be described In FIG 16 and the re- 
s^Z p UreS ' 3 ,0n i 9erp r° d °' ,ime is selec,ed than the one and a haft hours or so retrieved by thT On N w 
^^SE^ ^"SSr^ '° ^ ^ thS Pr °9 ram ™9 avaiIab ' a »» rest o, the week fn^er to 
whJf wThio ?! VCR (n °* Sh ° Wn) Ac,Ualin9 ,ne button navin 9 tne »^ber zero (0) of the keypad 50 

while watching a program causes the date view menu selection card, such as 900 of FIG 9 to appear at the oSn. in 

or subject matter categolfes ^ ™™ T m3V S, ° P 31 anv displa V in or der to change time 

the display 500. FIG^ 16 shows a first display 1600 of an interactive alphanumeric selection sequence First allaTha 

*> o ^ZSS^^SVL^ 9 ° P 52 ° f ,hS dOW1 arr ° W 54 as Shown in FIG 17 by actuation 

01 tne select (') button 64. This sequence would cause FIG. 18 to loqically overlay FIG 17 in Fir ir tt^L.i. 

nic«, FIG ^ ' S 3 °" e W6ek scnedule thal is laid as a logical three dimensional grid The days of the week are 
displayed atong one side, in this case verticaMy along the left side, of the disp.ay 2300 r/me of day ,s di^ 

rsschedldt;?'^ 

and t Te 8 00 c n co .ln th ^ 3 * °i c ° n,raS,in9 Shade wi " be ,oca,ed in intersection of the Sunday row 
5 £ h « , T 6 8Ct,Ve ar6a 2302 C3n be moved horizontally by arrows 56, 58 and vertically by arrows 

mort ihln? / k cnann els of programming, ,t is conceivable that some programs, such as Wove will be offered bv 
Referring back to FIGs. 1 and 2, overall operation of the apparatus of the invention is described. Program schedule 
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data is supplied via the cable 1 6. The program schedule data is either transmitted periodically and the STB 1 2 receives 
this program schedule data and stores it in RAM 40. Alternatively, all or part of the program schedule data could be 
dynamically requested and received by STB 12. which stores it in RAM 40. Program data such as this is commerc.ally 
available from TVData, Inc. and other similar concerns. The data or records of the program schedule data are in a pre- 

s arranged format, such as Microsoft Access or some other similar database format, to facilitate rapid storage, soring 
and retrieval by CPU 34. Each record of a TV program has its date of appearance, its time of appearance. Us title, its 
channel and/or network, its categorizations, and a textual or visual preview (if any). A listing of a prototype program 
that sorts, displays and interactively responds to a viewer's input is shown in the CPU program listing given below. 
This listing is in Visual Basic programming language of Microsoft Corporation. 

io The Visual Basic prototype program consists of a collection of forms, each form having its own set of event handlers 
In this case, the only significant external events are button actuations because of the remote control interface. A frame 
form provides the background and information and status bars used by most of the individual displays. A rolodex form 
provides the menus. The other forms are mostly schedule or list displays of various kinds, including spec.ateedvar.et.es 
such as the alphanumeric selection list form. 

rs The control part of the program begins with a procedure which toads all forms and activates the frame and rolodex, 

i e the top display, to begin. Forms hand off control by setting a return code and hiding themselves, thereby actuating 
the form directly beneath (usually the frame). Both the frame form and the rolodex form perform different actions de- 
pending on the value of the return code. The frame form's most common action is to activate another form, and much 
of the control flow of the application is handled by the frame form code. The rolodex form is used to display several 

20 different menu hierarchies, most importantly view selection and filter choice. 
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— - COMING form code « 8 



•--^ v r.ion uses drawing tj^ods ro^n"* 1 h ° UrS ° f ° n « ^ 



as 



-p:ion Explicit 

=« NDays As integer ' °" h Snapshoc f ° r ««h Vin -re view 

3i» NSioe. As mceJer ■ ° f days in display 16W 

"Station A S er .^ er °f slots ?„ display 

Oi» MaxSta C1 =r. As ££jf °* stations in display 

=>~ eolom. id As * Ltabase 

Const MINProgWid-h - p he -«?*t of day and zine lace's (in <nn 

s £~:r^Vf •< ™ ^v«£r .... 

*-'«/ number of current day owed * ,er day 

"" 3 - ar " lm * »*« day and time of display 

S IS-Wl L ° n9 '^"timeslot 
:f-- d As LoR S "last time slot 



3« TScurrent As L-na £ 9l ° C 
0i« rowO- S er . L ~ n9 c «rent time slot 

" SeC distance between (tops of) row, ■ u 

p ot ' rows =he schedule 

App:yFi: Cer ,< | 

Else -lor Fi el d - thlS P « b -^ should be a variable or const, not 10 



-nc 



WScacion * MaxSzation 
^oIorFieid * -Category* 



Zr.d $ub 



F °r i - 1 To NDays 

Next : erD *-*^> - aA lData (i) .CreateSnapshot;: 



-hangesel -d As String. 
r * r ; S !"! :;,e -* v i9ation according to -he d- r*„- 

E ^'s^^r-^^-* — 

s ... s ..nteger 'station 
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Din , e 'FinishTS (end J 

Dir. TS As Long ' time-slot 
Dir. F As snapshot 
Dir. aDay As Integer 
Dim dist 'distance 

Dim best As Long. bestHark 'as database marker 

•set info about current place in database 

current « filter Data [ cur rDay) . 3ookmark 

Se- F = filterData (currDay) 

s « F< 'Staticr." } 

e = F( "FinishTS" ) 

TS = TScurrent 

aDay 3 currDay 

success = False 

best = 9999 

If d s -Right* Then 

• check immediate right 

F . MoveNext 

If Not F . H10F Then 

T Lccess S = a sairitat,on and starts right after current program 
success » (F ( "Station" J = s) And (TS <* e - 
End If 

If Not success Then 
•check all to right for "closest" 
F.MoveFirst 
While Not F . EOF 

If FCFinishTS") > e Then .,.e P . rc -cn 
dist = VDistHoriz<s, e, F ( "Station , r< Start. S )) 

If dist <= best Then 
■ save best so far 
best = dist 
success = True 
bestMark = F. Bookmark 
End If 
End If 
F . MoveNext 

Wend 

If success Then 

■move to the best one 
F.3ookmark = best Mark 
TS * F ( -StartTS" J 
End If 
End If 
Elself d = "Left" Then 

check immediate left 
F . MovePrevious 

^ Success T^ame station and finishes right before current program 
success = (F(-Station-) * si And ! F ( " FinisnTS" >- .S - 
TS = Ft "StartTS"; 

End If 
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25 



15 Nc - success Then 
'check all cc left for "closest" 
F . MoveFirst 
5 Ah ile Not F.SO? 

If F^StartTS") < TScurrer.t Then 

'•<eep best so far 
10 best s dist 

success - True 

bestMark » F. Bookmark 
End If 
End If 
F.MoveNext 

15 Wend 

If success Then 

"move to best one 
F. Bookmark » bestMark 
Ts 3 F(-startTS-) 
20 End If 

End If 
El self d * •Down- Then 

^tlVor^lZV™ bel ° W *»' "closest- 

If F{ "Station") > s Then 
F.-F^shTS-:; dlSt " VD1 « V -«<«. TScurrenc. F ( 'Station" ) , F, -StartTS - , . 
If dist < best Then 
best = dist 
success « True 

30 bestMark = F.Booknark 

End If 
End If 
F . MoveNext 

Wend 

If success Then 
3S F. Bookmark • bestMark 

TS = F< -StartTS-) 
End If 
Slself d « -up- Then 

i^s'r'sr"" above current ° ne ' -cio. M t- 

If F< "Station") < s Then 
F<-r,,ishTS-n " VDiscV « c,s - TScurrer.t. F( -station- : . r « -StartTS- , . 

If c:st < best Then 
best = dist 
success = True 
bestMark * F . Bookmark 
End If 
End If 

F . XcvePrevious 

Wend 

If success Then 



40 



45 



SO 
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F. Bookmark » bestMark 
TS a F( "StartTS" ) 
End If 
End If 

If success Then 

•update variables and display 
TScurren: - TS 
currDay = aDay 
w DisplayProg 
Else 

'restore old position in databasse 
filterData < currDay) .Bookmark - current 
End If 
15 End Sub 

Sub DisplayProg ( ) 

'set current program info in info box 

•highlight the appropriate program shape in the display 
Dim F As snapshot 
20 Din msg As String 

Set F = filterData (currDay) 



25 
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35 



•set highlight 
shpProg (D) .Visible « False 
selector .Visible = False 

Position shp?rog(0) , F( -Start"). F ' "Finish" ) , F C Station" ) 
CPlace 0, selector. shpProg(O) 
shpProg(O) .Visible = True 
selector .Visible « True 

'message for info box 

msg = StationString(FCStation-)) i " - " & F( "Title') i " " 
msg = msg & Format ( F C Start - ) . "h:mm AM/PM" ) 
msg = msg & " to * & Fcrrat ( F ( "Finish" ) . "h:rnm AM / ?M " ) 
Setlnfo msg, Color ( F (colorField) Mod 9) 
End Sub 

Sub Do Preview ( ) 

'Construct an appropriate preview message and display it 
Dim msg As String 

msg = "Station: " & Stations t ring ( filterData < currDay I {"Station")) 
msg = msg & Chr ( 13 J & "Title: " & f i IterData (currDay H "Ti tie" ) i Chr (13) 
msg = msg & CategoryString (( filterData \ currDay )( "Type" ' i . 
( filterData [ currDay ) i "Category" ) ) ) 

msg * msg & Chr (13) & "Time: " & Forrat < fi IterData ( currDay : < " Star t " I . "mmm d,yy 
h: mm AM/PM" ) 

msg = msg & Chr(13) * " to ' & Format ( f i IterData I currDay) ( "Finish" ) . "h:mm 

AM/PM" > 

'show popup with preview message 
50 popup . Caption = msg 
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20 



30 



40 



45 



SO 



popup. Top = IblTi.-ne ;i) .Top ♦ 2 • ik-<-,_ , 
popup. Left * 2 "..us C). Height 

popup. Width =» slotsPerDay - 3 
popup. Visible = True 
inPreview = True 
Sub 

i'-ib Deselect ( } 
set selection info and go to TV 

fll ^«atcurr2ay)rstart-i 
returnCode « TOT/ 

Me . K i de 

2nd Suo 

Sub Draw?rog (colorlncex. star- firish 

oil' daysi.rc " ~- - ~«~» 

Dam edge 



d!!^ e " * day/time =<> Position in Nsi oc scale 
daystart = startTime . currDay - 1 
L ■ .start - days tart I * 48 
25 R » 'finish - dayStartJ • 48 

^clip shapes off at day boundaries 
- < 0 Then L = 0 

- - - * edge * sideGap 
R = R * - sideGap 

•note tOP aCCOrdin8 to station M ^?«>gW.dth 

rowOffset"! "ioo ^"•"lblSSh^ "f* v ° rit « stations " are not numbered 1. n 
t = sh P Slot(0,.Top . topcS ! ?«atiof Tf , !' Hei<,ht) 7 NSt "ion, 
B = t - shpProgO,. Height «"•««!.- 1. • rowOffset 

draw the box with the correct color 
crawwidth » 1 r 
Ke.Fillstyle « 0 -solid 

r e n r;; C0 ^ r ." c °lor ( colorlndax Mod 9, 
— ae ( L , t)-Step(R - t B ci 

bc * * ' the liae =°««nand with argument B draws a 

Er.a Sub 



Sub ~ srrr._ Activate ( ) 

make necessary changes to display - eseE -n^ * 

i As Integer 'counter StaCUS bars 

Static save.-ilter As String 

save.ilter - filters (currlWin, Then setter - True 
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saveFiiter * filters (currDomain ) 

SecSucus -TV Coming Up: • t currrii :er l TV) . gr yCOLOR 

t c nowUse*' Then . . 

s " popu^Cap^ior. - -Press -c.--.yory- -.o change eh. kind =f C r= 5 r*r.s dxp^yea. 

popup . Visible » True 
newUser = False 
Er.c If 

if net sarr.e filter, redo display 
JO -f Met sarr.eFilter Then 

Setlnfo -Loading program information . . . " . GRE . 
shpFrogtO) .Visible * False 
selector .Visible * False 
ApplyFilter 
1$ MakeDisplay 
End If 

• in every case 
DisplayProg 

If inPreview Then DoPreview 
20 End Sub 

Sub Fcrm.KeyDown {KeyCode As Integer, Shift As Integer} 
Select Case KeyCode 
Case Asc ( -Q- ) 

End 
Case B_BACK 

returnCode = BACK 
Me. Hide 
Case 3_HEL? 

InvokeHelp 
30 case B_ PREVIEW 

If inPreview Then 

popup .Visible « False 
inPreview = False 

Else 

inPreview * True 
End If 
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Case B_RIGHT 

If Not f ilterData (currDay ) .EOF Then ChangeSe- \ Rignt ) 

Case B.LEFT ,. f 

If Not f ilterData (currDay ) .EOF Then ChangeSe- < Let- ) 

40 Case B CP 

If~Not f ilterData (currDay ). EOF Then ChangeSel !-Jp"> 

Case 3_DOWN 

If Not f ilterData (currDayJ . ECF Then ChangeSel < Down > 

Case B — SELECT 

If Not f ilterData (currDay) .EOF Then ZoSeiect 

Case B_ PAGEDOWN 
Case 3_ PAGEUP 
Case 3__?ILTER 

returnCode » Filter 
Me. Hide 
50 case 3_0 
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20 



30 



40 



r curr.Code » SHORTCUT 
Ke . Hide 
End Select: 

* -r. ar.y cas 
If ;nPrev;ew Then 
DoPreview 

Else 

popup. Visible = False 
End If 
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Sub Form_l,oad I ) 

Sim i As Integer 
'5 3im r 'as time 

'set form colors and fonts 
Me.3ackColor * formCOLOR 
shpProg( 0 ) .BackCoior * BorderColor 
IblDay(O) .BackCelor * backgroundCOLOR 
IbiAM . BackColor ■ backgroundCOLOR 
IbiPM. BackColor « backgroundCOLOR 
selector . BorderColor « BorderColor 
dayLine (C ) .BorderColor * divideColor 
lbl?ime(C) .ForeColor = slotCOLOR 
25 shpSloc(O) .BorderColor « slotCCLOR 

If cisplayMode = "TV* Then 

IblDay(O) .FontSize = small FONT 
ibl7ime(0> .FontSize » small FONT 
IblAM . FontSize « small FONT 
lbl?M . FontSize = small FONT 
popup . FontSize = mediumFONT 
Else 

iblDay< 0 ). FontSize * largeFONT 
lblTime(O) .FontSize * largeFONT 
lblAM. FontSize = largeFONT 
35 lblPM. FontSize = largeFONT 

popup. FontSize » largeFONT 
End If 

'set scale and size objects 

SizeAForm Me. DispTop. DispHeight, DispLeft, DispWidth 
Me. Scale (0. 0>-(SCC, 500) 

SizeAControl IblDay(O) . 0, lblHeight, 0, 500 
'note: the AM/PM labels would be placed when time is filtered 
SizeAControl IblPM. 0, lblHeight, C. 30 
SizeAControl lbl AM , 0, lblHeight. 500 - 30, 30 
SizeAControl lblTime'0), lblHeight, lblHeight. 0, 50 
45 SizeAControl shpSIcciO). 2 ♦ lblHeight ♦ .5 * topGAP. 500 - 2 * lblHeight, 0. 50 

SizeAControl popup, 250, 200, 250. 200 
selector .Borderwidth » 1 
dayline(O) . Yl « C 
dayline(O) . Y2 * 5C0 
$0 initialize variables 
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startTime - fakeToday ♦ fakeTime 'this would be set a: activate to currer.: 

hour 

NDays » 1 

slotsPerDay = 24 

XSlcts » N*Days * slotsPerDay 

sameFiiter = False 

sameView = False 

ir.Preview = False 

'set form scale and place permar.:er.c stuff (day and time labels J 
Me.ScaleWi'ccfc = NSlots 
load IblDay(l) 

SiseAControl lbl2ay(l>. 0. lblHeight. 0. slotsPerDay 
lblDay(l) .Caption = DayString (startTime . "long") 
lbiDay(l) .Visible * True 
IblTime'O) .Width » 1 
For i * 1 To slotsPerDay 

Load IblTimeti) 

IblTime i i ) .Move i - 1 

t = DateAdd< "n" , 30 * (i - 1). startTinei 'add 3C minute increments 
IblTir.eii) -Caption = Ti: me Label { t) 
IblTimeii) .Visible ■ True 
IblTimei i) .ZOrder 
Next i 

InputData 
Forrr_Activate 
sameView = True 
End Sue 

Sub InputData ( ) 
part of form_load 

cpens the database and creates allData snapshots 

Dim DB As database 

Dim RefSnap As snapshot 

Set D3 = OpenDatabase (TVDB) 

'get reference date and number of stations 
Set RefSnap « DB .CreateSnapshot ( "Reference" ) 
Ref Snap. FindFirst "Name • •Date'" 
ref Date = DateValue (RefSnap ( -Data" 1 ) 
RefSnap. FindFirst "Name = 'NStations'" 
MaxStation = Val (Ref Snap ( "Data ") ) 

Set allData (0> « DB . CreateSnapshot ( " Programs " ) 
■assumes data already sorted 

filter for particular time period; would happen at each half-hour change 
7S3egin = Abs (DateDif f ( - n" . startTxme. refDate) \ 30) 
?SEnd = TSBecin <» slotsPerDay - 1 'check that slotsPerDay is set 
allDataiO) .Filter = Overlap (TSBegin , TSEnd) 
Set aiiDatadl ■ allData ( 0 ) .CreateSnapshot ( ) 
Set ailDatalO * Nothing * won * t be needing everything 



16 



EP 0 735 749 A2 



r.d Sub 

ub MakeDispiay ( ) 

create the display of programs from the data 
Dim i As Integer 'count r 
Dim d As Integer 'day 
Dim F As snapshot 'convenience 

If Not sameView Then 

•would need to reset captions for times and day 
End If 

place program shapes 
CIs 'clear the form of previous drawings 
DoEvents 'make it so 
For d = 1 To NDays 
currDay = d 

'draw lines to separate time slots 
For i * G To slotsPerDay 
drawwidth = 4 

Line (i, shpSlot ( 0 ) . Top) - ( i . 500), slotCOLOR 
Next i 

'craw prcgran shape for each program in data 
Set F = f ilterData(d) 
If Not F . EOF Then 
F.MoveFirst 
Do While Not F.SOF 

DrawProg F (colorField) , F( -Start"). F< "Finish- 
F . MoveNexc 

Loop 

F . Mover irst 
End If 
Next d 

'initialize stuff 
TScurrent « TSBegin 
currDay » 1 
shpProg ( 0 ) . ZOrder 
selector . ZOrder 
Set F = filterData (currDay) 
•find a program to start on 
Do While TScurrent <= TSEnd 

F.FindFirst Overlap (TScurrent . TScurrent; 

If Not F.NoMatch Then 
DisplayProg 
Exi t Do 

End If 

TScurrent = TScurrent «■ 1 

loop 

'make sure TScurrent is in range 
If TScurrent > TSEnd Then TScurrent * TSBegin 
d Sub 

i Position (shape As Control, start, finish, station) 



17 



EP 0 735 749 A2 



'position a program shape control 

Dim relativ L. reiativeW. dayStart 
Dim edge 

5 'convert a day/time to position in NSlot scale 

cays tart * startTime - currDay - 1 
relativeL = (start - dayStart) * 48 
reiativeW * (finish - dayStart) • 48 - relative! 

clip shapes off at day boundaries 
If relativeL < 0 Then 
10 ^reiativeW - reiativeW ♦relativeL 

relativeL = 3 
End If 

Zt reiativeW * relativeL > slotsPerDay Then reiativeW - slotsPerDay - relative! 
•set left and width of shape, leaving swll gap between programs 
,5 edge » (currDay - 1) * slotsPerDay 

shape. Left ■ relativeL * edge ♦ sideGap 
shape. Width * reiativeW - 2 ■ sideGap 
"set minimum width so program is visible 

If shape. Width < MINProgWidth Then shape. Width * MINProgWidth 
' set top according to station 
20 'note: this will not work if -favorite" stations are not numbered 1 - .n 

rowoffset « ((500 - 2 * lblHeight - shpProg < 0 ). Height ) / NStation) 
shape. Top * shpSlot (0 ) .Top ♦ topGAP ♦ (station - 1) • rowOffset 
End Sub 
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Function VDistHoriz (stationl, finish. station2. start) 

'computes a value for the "visual" left-right distance between two programs 
•requires that the earlier program come first 

•note: needs refinement, does not work satisfactorily, especially with crowded 
displays 

Dim deltaR. deltaT 'change in row and time 
30 Dim rowl, row2 

rowl = stationl 
row2 ■ station2 

'note: row calculations could be more complicated if stations not numbered l..n 
deltaR = Abs(rowl - row2) • (100 / NStation) 
deltaT = (start - finish) * (100 / slotsPerDay) 
•penalize programs that are more upfcdown than to side 

If deltaT <* 1 Then deltaT * (finish * 3 - start) • (100 / slotsPerDay) 
If deltaT < 1 Then deltaT = 100 / slots PerDay 1 don ' t allow zero 
VDistHoriz ■ deltaR * deltaT 
40 End function 

Function VDistVert (stationl, startl, finish!. station2, start2. finish2) 
•computes a value for the "visual" up-down distance between two programs 
'note: needs refinement 
4S Dim deltaR. deltaT 'change in row and time 

Dim" rowl , row2 

rowi = stationl 
row2 a statior.2 



SO de 



row 2 a stations 

'note: row calculations could be more complicated if stations not numbered 1 . - r. 
deltaR * Abs(rowl - row2) / NStation 
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If startl > finish2 Then 

deltaT » Abs ( startl - finish2) 
Elself scar:2 > finishl Then 

del taT = Abs ( start2 - finishl) 

Else 

deltaT » 0 
End If 

VDistVert = deltaP. - 2 • deltaT 
End "unction 

'»*««■ FRAME form code = 

'This form owns Che standard info and status bars and allows 
* transfer of control from fcrm to form. 
Option Explicit 

Sub Form_Activate ( J 

•decides which other form should show in its display area 
Select Case returnCode 
Case SKOWVXEW 

views (cur rOoma in) .Show 
Case PICK 

f rmSelect . Show 
Case TOTV 

f rmTV. Show 
Case LAS TV I EW 

sameFilter « True 

views (currOomain) .Show 
Case STARTUP 

* do nothing--don * t want rolodex to show yet 
Case Else 

f rruOex. Show 
End Select 
End Sub 



Sub Form_:<eyDown (KeyCode As Integer, Shift As Integer) 

If KeyCode » Asc(-Q-) Then 
End 

End If 
End Sub 



Sub Form_Load { ) 

'set colors and fonts 
Me.3ackColor » formCOLOR 
ssplnfo . FontSize ■ mediumFONT 
sspStatus . FontSize » mediumFONT 
"use builrin object to size background 
ScrWidth » Screen. Width 
ScrHeight = Screen . Height 
If displayMode » -mini" Then 
* for taking screen prints 
ScrHeight » ScrHeight * .54 
ScrWidth = ScrWidth • .712 
displayMode » "TV- 
Else 
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'resize to fit TV 
ScrHeight = ScrHeight • .63 
End If 

5 'st form to fill sere n 

f rmFrame .Top 3 C 

f rmFrame. Height = ScrHeight 

f rmFrame . Lef t » 0 

frxFrarae. Width * ScrWidth 

•info line at top cf screen 
1 ssplnfo .Visible - True \ 

'status line at bottom of screen 

sspStatus . Visible ■ True 
define available display area 

DispTop = ssplnfo . Height ♦ 1.5 
15 DispHeight * f rmFrame . Height - ( sspStatus . Height ♦ 1.5) - DispTop 

DispLeft = 0 

DispWidth » f rmFrame . Width 
End Sub 

20 Sub SetupStatus () 

Elnd Sub 

• =««=== LIST form code ====== 

■This code is used for all three list forms (TV. Movies, Shopping* 
Option Explicit 
25 Dim 33 As database 'full database with indexes 

Dim BlinkControl As Control 'set to blinking object (currently none) 
Dim itemSelected As Integer 'from 1 to MAXDISPLAY 
Dim locSelected As Integer ' from 1 to MAXLOC 
Dim inPreview As Integer 'boolean 
JU Dim captionField As String 'the database field that is used for display 

Dim startTime 'the start time for the TV list 
Dim TS As Long 'the time slot for the TV list 

Dim rowOffset 'difference between tops of two consecutive reduced items 
Dim browsing As String 'type of current shopping list 
35 Dim colorField As String 'field which determines color (should be of type integer) 

'display parameters 

Const MAXDISPLAY * 6 'Number of items in close up 
Dim MAXITEM As Integer 'Number of items in whole list 
Dim MAXLOC As Integer 'Number of locator positions 
40 Dim whichrltem(MAXDISPLAY) As Integer 'which rltems are in the current display 

define sizes of locator and selector 

Const GA? = 10 'space around lists 

Const EXTRA = 70 'room for longer programs 
45 Const reducedEXTPA =* 20 'room for longer programs in reduced rep 

Const T * 50 'reduced list 

Const H » 1000 - 2 • T 

Const locL * 30 'display area 

Const locW = 100 

Ccnst dispL * locW * 2 * locL 
50 Const dispW » 1000 - dispL - locL 
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database snapshots 
Dix allData As snapshot 
D-.ti itemDaca As snapshot 
Dim scoreDaca As snapsh t 
Dim depcData As snapshot 
Di- stuffData As snapshot 
5i- fiiterData As snapshot 
"in marker t 1DO0) As srr,-« -i i 

Sub ApplyFilter () 
filter the data according to user choice 
Dim sortString As string 

If Me Is TViist Then 

captionField * -Title" 

sortString = - - 

colorFieid » "Type" 
Elself Me Is MOVlist Then 

If saneView Then 

keep allData as it is 

Else 

'reset allData to all movies 
LoadOata 

allData. Filter = viewFilter 
End If' AUData * aUDa "- C ««eS.napshot(, 

captionField * "Title" 

sortString a "Title " 

colorFieid « "Type" 
Elself Me is SKOPlist Then 

•note: This would all be done totally dif^erentlv Dfln ^ k v 

Select ^ aer "r ding juSC it ;* erent ^- * bother 

Select Case filters < currDomain ) 

Case "store- 
browsing a -store" 
Set allData » storeData 
captionField • "name- 
filters I currDomain) * 
sortString - -name" 
colorFieid = - - 
Case "dept" 

browsing « "dept" 

:f dep-.Data.NoMaech Then eh "«"». I shouldn't use userSc, 

Set allData - depcData 
fillers (currDomain) » -• 

Else 



2nd If 



browsing = -stuff- 
filters (currDomain) = "(dept code) . ■ «. ^ 
Set allData . stuffData depcData < -code- > 
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captionField ■ 'name' 
sortString » "name" 
colorField » 
Case -item- 
browsing » "item" 
Set allData = itemData 
captionField * •name" 

colorField = . t „ 

f ilters (currDoMin) = "name 1-ke « user^tr.ng 
sorts tring = •name" 
Case Else 

browsing » "stuff" 
captionField * "name" 
sortStrir.g « "name* 
colorField = "litem code) " 
IS Set allData = stuffData 

End Select 
End If 
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allData. Filter - filters (currDomam ) 
I £ filters (currDomain) » Then 

allData. FindFirsc "Not " & captionField 5c " * 

Else 

allDaLa.FindFirst allData . Filter 
End If 

Zt allData. NoMatch Then 
25 MAXITEM - 0 

El3e MAXITEM - 1 'temporary setting just to make sure it isn't 0 
Set filterData « allData . CreateSnapshot () 
filterData. Sort « sortString 

Set filterData = filterData : CreateSnapshot ( ) 

End If 
End Sub 

Sub 31inkStart (C As Control, vis I 
Set BlinkControl » C 
BlinkControl .Visible « vis 
tmrBl ink. Enabled = True 
End Sub 
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Sub BlinkStop (vis) 

tmrBl ink. Enabled = False 
If BlinkContrci Is Nothing Then 
•do nothing 

Else 

BlinkControl. Visible - True 
Er.d If 

Set BlinkControl ■ Nothing 
End Sub 

Sub ChangeLcc (direct As String) 
•page up or down with the locator 
Select Case direct 
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Case "Up" 

If iocs iecced > 1 Th n 

locSelected « locSelected - l 
RedoDispiay 
End If 
Case "Down" 

If locSelected < MAXLOC Then 

locSelected = locSelected - 1 
RedcDisplay 

End If • 
End Select 
End Sub 

Sub ChangeSel (direct As String) 
15 'navigate up or down one selection 

Select Case direct 
Case -Up- 

If itemSelected > 1 Then 

move up within current display 
20 itemSelected * itemSelected - l 

selector. Top * itemBox ( i temSelected) . Top - GAP 
rItem(0).Top = rl tem (whichrl tem { itemSelected) ) . Top 
rltem(O) .Left « locL - CAP p 
rltem<0) .Width « locW + 2 • GAF 
Setltemlnf o 
2S Slself locSelected > l Then 

•display previous section of list 
i temSelected » MAXDISPLAY 
locSelected = locSelected - l 
RedoDispiay 

30 . ^ " 

Case "Down* 

If i temSelected < MAXDISPLAY Then 

•move down within current display 
'do not move to select an empty item 

If f locSelected - 1) • MAXDISPLAY * itemSelected < MAX ITEM Th.n 
itemSelected * itemSelected * 1 * A «"*ci < MAX ITEM Then 

selector. Top » itemBox { itemSelected) . Top - GAP 
rltem(O) .Top « rltem(whichrltem< itemSelected) ). Tod 
r-temiO) .Left * locL - GAP 
rltem(O) .Width » locW * 2 • GAP 
Setltemlnf o 
End If 

Elself locSelected < MAXLOC Then 
•display next section of list 
iter.Selected » l 
locSelected « locSelected ♦ 1 
RedoDispiay 
End If 
End Select 

rltem(C) .Visible = True 
End Sub 

50 -. . 

iub Do Preview { ) 
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shew preview window and preview locator 
D*r. i As Integer "counter 



inPreview = True 

•hide other stuff 
locator .Visible = False 
selector .Visible * False 
For i * 1 To MAXDISPLAY 

iterriBox(i) .Visible » False 

ieftArrow(i) .Visible « False 

rightArrow(i) .Visible ' False 
Next i 

previewWin. Caption = -Getting preview... " 
previewWir. . ZOrder 
previewWin. Visible « True 

ShowPreview 
End Sub 

Sub DoSelect () 

•act on the current selected item 

If Me Is TVlist Then 

'set selection data and go to TV 

userStation = filterData ( "Station* ) 

userStart = filterData ( "Start " ) 

returnCode = TOTV 

Me . Hide 
Elself Me Is MOVlist Then 

•display "order movie" message 

sameFilter * True 

TellUser "You would be asked to confirm your order of " & 
filterData ( "Title" ) 

Slself Me Is SHCPIist Then 
Select Case browsing 
Case "stuff" 

sameFilter = True 

TellUser "You would be asked to confirm your order ot " & 
f ilcerData < "name* ) 

Case "sccre" 

filters (currDomain) = "[store code] » " & f il terData ( " code 
Form_Activate 
Case "item" 

filters < currDomain) - "[item code] * " & filterData ( "code 
Form_Activate 
Case "dept" 

fi leers {currDomain > = " (dept codel = " & filterData ( "code 
Fom.Activa-e 
End Select 
Er.d If 
End Sub 
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Sub End Preview ( ) 

•go back co r gular list op ration 
Din i As Integer 'counter 

previewW in. Visible = False 
in?review » False 
locator .Visible = True 
selector .Visible - True 
previewWin.Top * dispiayLis t . Top 
RedoDisplay 
End Sub 

Sub Form.Activate { J 

Dim i As Integer ' counter 

Dim section As Integer 'count the number of locator locations 

Dim NVisibie As Integer 'tally the visible shapes in a section 

Dim msg As String 

Static saveFilter As String 

Static saveView As String 

'check new filters against current filters 

If Not sameView Then sameView ■ (saveView * viewFilterJ 

saveView * viewFilter 

If Not sameFilter Then sameFiiter « (saveFilter « f ilters < currDomain ) ) 
saveFilter « filters (currDomain) 

SetStatus currView( currDomain) k currFilter ( currDomain) , greyCOLOR 

If sameFilter And sameView Then 

'keep everything the same as last time 
If newUser And Not Me Is SHOPlist Then 

popup. Caption = "To change the category shown, press the 'Category' 

button . - 

popup. Visible = True 

newUser - False 
End If 
RedoDisplay 

Else 

'clean up display 

Setlnfs "Selecting data, please wait...". GREY 
If MAX IT EM * 0 Then 

previewWin. Caption = 

previewWin. Visible * False 
End If 
DoEvents 

If mPreview Then EndPreview 

For i - 1 To MAXDISPLAY 

itemBox( i ) .Caption « 
Next i 

For i * 1 To MAX IT EM 

Unload rltem(i) 
Next i 
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•filter new data 
ApplyFilter 
5 If MAXITZM ■ 0 Then 

•give *no matches" msg 
locator .Visible « False 
rltem(O) .Visible - False 
For X » 1 To MAXDISPLAY 
MAX IT EM * C 

10 itemBox(i) .Visible * False 

leftArrow(i) .Visible * False 
nghtArrow( i) .Visible * False 
Next i 

previewWin. Caption » "No matches were found" & ChrI13) 
is previewWin. Caption « previewWin. Caption & "Press * Category' "o change 

the selection . • 

previewWin. ZOrder 
previewWin. Visible « True 
itemSelected • 0 
locSelected = 0 

20 Else 

redo list display 
f ilterData. MoveLast 
MAXITEM ■ f ilterData. RecordCount 
set distance between items 
25 rowOffset « (H - rltem(O) .Height) / MAXITEM 

If rowOffset > rltem(O) .Height ♦ GAP Then rowOffset = rl tern ( C i . Height 
GAP 'max distance 

rltemCO) .Visible • False 
rltem(O) .Top ■ T 

rltem(O) .Lef t = locL * reducedEXTRA 
30 rltem(O) .Width = locW - 2 • reducedEXTRA 

rlt«m(0 ) . BackColor ■ itemCOLOR 
f ilterData . MoveFirst 
'size and place the item shapes 
•and set section bookmarks 
35 section * 0 'number of locator locations 

NVisible - MAXDISPLAY 'so first section will be marked correctly 
For i « 1 To MAXITEM 
Load rltem(i) 
If colorField <> •■ Then 

rltem(i) .BackColor = Cclor (Val i f ilterData I colorField) ) Mod 9) 
40 End If 

NVisible = NVisible ♦ 1 
rlterot i ) . Top ■ T ♦ (i - 15 * rowOffset 
If NVisible > MAXDISPLAY Then 
'begin a new locator location 
45 section * section - 1 

lbcStart (section) * i 

marker i section) « f ilterData . Bookmark 
^Visible = 1 
End If 

If Me Is TVlist Then 
50 'set length of reduced item 
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If f ilterData < -StartTS- ) < TS Than 

rltem( i) . Lef t ■ rltem( i ) . Lef t - reducedEXTRA 
rltem(i) .Width ■ rlz mii) . Width ♦ reducadEXTRA 

End If 

If filterDataCFinishTS") > TS Than 

rltero(i) .Width » rl rem < i ) . Width - reducedEXTRA 
End If 
Er.d If 

rltem(i) . ZOrdar 
rltem(i) .Visible * True 
filter Da ta. Mo veNex t 
Next i 

MAXLOC « section 

locStart (section ♦ 1 ) = MAX IT EM ♦ 1 

'set length of minselector (use rltem(O)) 
rltem(D) .Lef t » locL - GAP 
rltexr.(O) .Width « locW ♦ 2 • GAP 

'initialize selector and locator 
itemSelected ■ 1 
locSelected » 1 
locator .Visible « True 
rltern(O) .BackColor = highlight COLOR 
•set the captions in the itemBoxes 
RedoDi splay 
End If 
End If 
End Sub 

Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) 
popup. Visible = False 
Select Case KeyCode 
Case Asc ( "Q" ) 

End 
Case B_BACK 

If Me Is SHOPlist And browsing « 'item" Then 
'not exactly what we want 
returnCode « ALPHA 
Me. Hide 

Else 

returnCode = BACK 
Me. Hide 
End If 
Case B — HELP 

InvckeHeip 
Case B_PREVIEW 

- f inPreview Then 
EndPreview 

Else 

DoPreview 
End If 
Case B_3ELECT 

If MAX ITEM > 0 Then DoSelect 
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Case B_UP 

If MAXITEM > 0 Then ChangeS 1 I "Up"* 
Case B_DOWN 

If MAXITEM > 0 Then ChangeSel ('Down') 
Case B_RIGHT 

If Me Is TVlist Then 

recumCode * COMING 
Me. Hide 
End If 
Case B_LEFT 
Case B_?AGEUP 

If inPreview Then 

•scroll preview 

If previewWin.Top < displayList . Top Then 
•move preview window down a screen 

previewWin.Top « previewWin.Top ♦ displayList . Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc C ? Jp") 
End If 
Case B — PAGEDOWN 

If inPreview Then 

•scroll preview 

If previewWin.Top ♦ previewWin . Height > displayList . Top 
displayList .Height Then 

•move preview window up a screen 

previewWin.Top » previewWin.Top - displayList . Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc ("Down") 
End If 
Case B_FILTER 

If Not Me Is SHOPlist Then 
returnCode » Filter 
Me. Hide 
End If 
Case B_0 

returnCode « SHORTCUT 
Me. Hide 
End Select 
2nd Sub 

Sub F orm_Load ( ) 

Dim i As Integer 'counter 
Dim itemRoom 

'set colors and fonts 
itemBox(O) .Font Size = largeFONT 
lef tArrow(0 > . FontSize = largeFONT 
rightArrow(O) .FontSize » largeFONT 
If displayMode » •PC Then 

popup. FontSize * largeFONT 

previewWin. FontSi2e » largeFONT 

Else 
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previewWin.FoncSize ■ mediumFONT 
popup. FontSize « small FONT 
End If 

5 rlt nUO) . BackColor » itemCOLOR 

s lector. FillColor « highlightCOLOR 

displayList. FillColor * backgroundCOLOR 

previewWin.BackColor * backgroundCOLOR 

locator . FillColor » backgroundCOLOR 

itemBox (0 ) .3ackColor » itemCOLOR* 
10 lef tArrow(O) .SackColor « itemCOLOR 

rightArrow<0) .BackColor « itemCOLOR 

shpSlot . BorderColor * slotCOLOR 
size the objects to the screen 

SizeAForm Me. DispTop, DispHeight, DispLeft. DispWidth 
, 5 Me. Scale <0. 0)-<1000, 1000) 

SizeAControl locator, T - GAP , H * GAP. locL - GAP. locW * 2 * GAP 

SizeAControl shpSlot. T, H. locL ♦ reducedEXTRA. locW - 2 • reducedEXTRA 

SizeAControl displayList. T - GAP. H * GAP. dispL. dispW 

SizeAControl popup, dispW / 2, 4 * locW, dispW / 2, 4 • locW 

CPlace 1, previewWin. displayList 
20 locator .ZOrder 

shpSlot. ZOrder 

rltem(O) .ZOrder 

itemRoom « H / MAXDISPLAY 

SizeAControl itemBox(O), T ♦ (.5 • GAP) , itemRoom - GAP, dispL ♦ EXTRA. dispW - 
2 * EXTRA 

SizeAControl patch {0) , 50. (6.8 • itemBox ( 0 ). Height ) . (12.3 * itemBox l 0 ). Width) . 
(7 • itemBox(Q) .Height) 

If displayMode * "TV" Then 

patch(O) .Left » 8.08 * itemBox ( 0 1 .Width 
patch(O) .Height = 3.7 * itemBox { 0) . Height 
30 End If 

SizeAControl leftArrow(O) . T - (.5 • GAP) . itemRoom - GAP. dispL. EXTRA 
SizeAControl rightArrow(O) , T ♦ (.5 • GAP). itemRoom - GAP. dispL «• dispW - 
EXTRA. EXTRA 

SizeAControl selector, T, itemRoom «■ GAP, dispL, dispW 
selector . ZOrder 
For i a 1 To MAXDISPLAY 

•Load itemBox(i) 'Now created at design time--£ixed number (6) 
itemBox(i) .Visible » False 
CCopy itemBox ( 0 ) , itemBox < i ) 
patchti) .Visible « False 
40 CPlace 0. patch(i), patch (0) 

itemSox(i) .Top « itemBox(O) .Top ♦ {i - 1) • itemRoom 
Load leftArrow(i) 

leftArrow(i) .Top « itemBox i i ) .Top 
Load rightArrow(i) 
45 rightArrow(i) .Top ■ itemBox ( i ) .Top 

Next i 

' load the list data and set up the display 
sameFilter » False 
sameView = False 
50 LoadData 
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Fora.Activate 
sameFilter = True 
End Sub 

5 

Function ItemString () As String 
* set rosg to be used in info bar 
Dim msg As String 

If Me Is TVlisz Then 
10 msg = Format ( filterData ( "Title" ) ) & " on " 

rr.sg = msg & Stat ionSt ring I filterData ( " Station" ) ) & " 
msg = msg « TimeStrmg ( filterData < "Start" ) ) i " to * 
msg = msg k TimeString ( filterData ( "Finish" ) ) 
Elself Me Is MOVlist Then 

msg » Format < filterData ( "Title* ) > 
msg • msg & " & Format ( filterData ( "Year - ) ) 
Elself Me Is SHOPlist Then 
Select Case browsing 
Case "stuff" 

msg = Format ( filterData < "name" > ) Format ( f ilterData ( "price •) ) 

20 End Select 

End If 

ItemString = msg 
End Function 
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Sub LoadData ( ) 

Dim ref Snap As snapshot 
Dim re f Dace 
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• load in the database as a snapshot 
If Me Is TVlist Then 
20 startTime • fakeToday ♦ .fakeTime 

Set DB « OpenDatabase { TVDB ) 

Set refSnap • DB. CreateSnapshot < "Ref erence" ) 
ref Snap . FindFirst "Name » 'Date'" 
refDate » DateValue (ref Snap ( "Data" ) ) 
Set allData = DB. CreateSnapshot (" Programs" ) 
'filter for time would really happen at activate 
TS « (startTime - refDate) * 48 
allData. Filter - Overlap (TS, TS) 
Set allData ■ allData . CreateSnapshot { ) 
Elself Me Is MCVlist Then 
40 Set DB « OpenDatabase (MVDB) 

Set allData = DB . CreateSnapshot ( "Movies" ) 
Elself Me Is SHOPlist Then 

Set DB = OpenDatabase (SPDB) 
Set iterrSata = DB .CreateSnapshot ( "Items " ) 
^ 5 Set stcreSata « DB .CreateSnapshot ( "Stores " ) 

Set deptData * DB . CreateSnapshot ( "Departments " ) 
Set stuff Data - DB . CreateSnapshot (" Stuff " ) 
Er.d If 
End Sub 

50 Sub RedoDisplay () 
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'see the captions in Che icemBoxes to correspond to items in locator 
* reposition locator and selector, update info box 

Dim last As Integer 
Dim i As Integ r 

Dim Index As Integer 'index of rltem 

If XAXI7EM * 0 Then Exit Sub 

figure first item location 
filter Data. Bookmark « marker { locSelec tec ) 
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Index = locStart (locSelected) 
For i = 1 To MAXDI SPLAY 

If filterData.EOF Then 
is 'hide empty itemBox 

itemBox(i) .Caption « *" 
itemBox ( i ). Visible « False 
leftArrow( i ). Visible » False 
rightArrow(i) .Visible = False 

Else 

whichrltenU i ) * Index 'so we can highlight the correct rlten { reduced 

item) 

If colorField <> Then itemBox < i ). BackCo lor * 
Color ( filterData(colorField) Mod 9) 

itemBox< i) .Caption « f ilterData (captionField) 
25 If Not inPreview Then itemBox ( i ) .Visible » True 

If Me Is TVlist And Not inPreview Then 

'show arrows to reflect program length 
If f ilterData( -StartTS-) < TS Then 

leftArrow(i) .BackColor = itemBox ( i ). BackColor 
leftArrow(i) .Visible = True 

30 Else 

leftArrow(i) .Visible * False 
End If 

If f ilterData ( -FinishTS" ) > TS Then 

rightArrowU} .BackColor » l temBox { i ). BackColor 
35 rightArrow( i ) .Visible » True 

Else 

rightArrow(i) .Visible = False 
End If 

'show color patch for subcategory 

patch! iKFillColor « Color ( f ilterData ( "Category " ) Mod 9) 

patch(i) .Visible » True 
End If 
last = i 

Index = Index - 1 
f ilterData .MoveNext 

45 Er.d I f 

Next i 

'Do not allow blank to be selected 
If itemSelected > last Then 
itemSelected = last 

Er.c If 
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•fix the rest of the display 

displayLisc. Height » H ♦ 2 • GAP - <H / MAXDZ SPLAY • (MAXDISPLAY - last!) 
•display lisc shrinks when fewer than MAXDISPLAY items displayed 

selector. Top = itemBox { itemSelected) .Top - GAP 'behind current itemSox 
locator. Top * T * rowOffset • ( locStart ( locSelected) - 1) 

locator .Height * last • rowOffset ♦ rltemtO) .Height - rowOffset 'height shrinks 
when displayList shrinks 

rItem(C i .Top = rl term whichrl tern ( itemSelected).) .Top 

Setltemlr.fo 
End Sub 

Sub Setltemlnfo ( ) 

'display current item's info in info bar 

Dim i As Integer *• of records away from bookmark we need to go 

Dir. msg As String 

■ find selected record 

filterData. Bookmark « marker i locSelected) 
i = itemSelected 
While <i > 1) 

f i 1 terData . MoveKext 

i = i - 1 

Wend 

* Put info in the inf c bar 

Setlnfo ItemStrir.gC i , ( iteitBoxi itemSelected) . BackColor) 
'update preview window if needed 
If inPreview Then ShowPreview 
2nd Sub 

Sub ShowPreview {) 

'Display the video, still, or text preview 
• of the item selected 
Dim msg As String 
If Me Is MOVlist Then 

msg = f ilterData( -Plot" ) 
Elself Me Is TVlist Then 

msg » filterData (capt ionField) & Chr(13) 

msg = msg k StationString ( filterData <" Station - ) ) & Chr(13) 

msg = msg & Category-String <( filterData l -Type ")> . ( filterData < "Category' >> > 

Else 

msg * -This would be a video, still, or textual preview of 
msg * msg « filterData (capt ionField) 
msg * msg & " ' " 
End If 

previewWin .Visible » False 
previewWin . Capt ion » msg 
CPIace 0. previewWin. displayList 
previewWin. Visible * True 
End Sud 

Sub tmr2iink_Timer ( ) 

eiinkControl .Visible = Not BlinkControl . Visible 

End 3ub 
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MESSAGE form code ■■»■»■ 
This form is used by Help and some lists to display in forma Li:.-. . 

• temporarily covering up the current forx. 
Option Explicit 

Const GAP * 5CC 

\ ■ 

Sub Form_Activate ;) 

textArea . Caption « userMsg 
End Sub 

Sub Form_KeyDown (KeyCode As Integer. Shift As Integer) 
Select Case KeyCode 
Case Else 

returnCode = KeyCode 
Me. Hide 
End Select 
End Sub 

Sub Forro_Load { ) 

•set colors and fonts 
Me.BackColor = itemCOLOR 
textArea . BackColor » itemCOLOR 
textArea . FontSize = largeFONT 
'set sizes 

SizeAForm Me, DispTop, DispHeight, DispLeft, DispWidth 

SizeAControl textArea, GAP. DispHeight - 2 * GAP , GAP, SispWiath - 2 * 3A 
'initialize 
textArea .Caption = 
End Sub 

• Bsssss ROLODEX form code ====*= 

'This form shows the main menu and filter menus. 

• Crimp 1 erne n ted : Have filter button color correspond to type/category color 
Option Explicit 

Dim BlinkControl As Control 'pointer to blinking highlight 
Dim parent As Integer 'number of parent card 
Dim current As Integer 'number of current card 

'special cards 

'note: these must be updated each time the number of filter cards in the card 
data: lie changes 

Const filterCARS =1 ' TV filter menu 
Const mill terCARD » 68 'movie, filter menu 
Const homeCARD » 96 'main menu 

Dim lastCard As Integer 'holds number of regular card while in filter 

Const MAXTITLE * 3 "WARNING: A change in MAXTITLE requires a change in cede i 
LoadGraphics 

Const CARDSHIFT « 2.5 'for card display- -amount change in card placement 

Const MAXROWS = 3 ' for card display- -number of rows of buttons 

Const MAXCOLS » 3 'for card display- -number of columns of buttons tn a card 
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Cor.st MAX CARD = 9 'max number of cards -hat can be displayed on screen 
J :ns: MAXITEM = 9 'max number of buttons on a card 

5 action codes: cell what action to take for a button choice 

•actions greater than ectNEXT need additional input 
Ccr.st act COMING * 2 
Const act NOW = 2 
Cor. st actNEXT * 5 
Const actALPKASHO? = c 
10 Const actFlLTER = 7 

Const actALPHATV = 8 
Const actALPHAMOV = 9 
Const actOOMAIN = iC 
Const actLATER = 11 
/5 Const actWEEK « 12 

Const actWKEND « 13 
Const actSCHED - 14 
Const shorcTWIEW = 3D 
Const shortMWIEW = 31 
Const shortSPVIEW = 32 
20 Ccnst shortTVNOW =35 

Ccnst shortTVFAV =35 
Const shortMVFAV - 37 
Const shortSPFAV * 38 
Const actMOVIE -40 
Const act STORE = 50 
Const actDEPT « 52 
Const actMORE * 50 
Const act NONE = 65 

for development only- 
Const act KEYS = 71 
Const actTABS « 72 
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Sub Animate (direct As String, cardNo As Integer) 
'Animate opening another card, backing up. or selecting a button 
Dim index As Integer 
35 Dim depth As Integer 

DoEver.ts "do not interrupt another animation 
depth « Cards (current ). level 
Select Case direct 
Case "Back" 

40 If Cards (current) .parent > 0 Then 

CCopy sspCard (depth) , sspCont 
sspCont . Visible = True 

Zoom IC, sspCont. sspl tern ( Cards < current >. sel f ) 
DisplayCard (Cards ( current j .parent) 
45 sspCont . Visible ■ False 

End If 
Case -Next" 

index = Cards ; current ). selected 
: f index > 0 Chen 

CCopy sspltem( index) . sspCont 
50 sspCont .Visible « True 
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sspCont .BackCoior « sspCard ( 0 ) . BackCoior 

Zoom 1C, sspCont, sspCard (depth ; 

DisplayCard cardNo 

sspCont .Visible » Fals 
End If 
Case -Select- 
index * Cards (current) . selected 
If index > C Then 

CCopy ssp; tern (index ) . sspCont 

sspCont .Visible = True 

sspCont .BackCoior * sspCard (C i . 3ackColor 

SizeACcntrol sspCard(O), 0. 5CC . 0. SCO 'size sf whole f 
Zoom 1C, sspCont, sspCard<0> 
End If 
End Select 
End Sub 



Sub BlinkStart (C As Control, vis) 

'enable blinking object 
Sec BlinkConcrol « C 
BlinkContrcl .Visible « vis 
tmrBlink. Enabled = True 

End Sub 



Sub BlinkStcp (vis) 

'stop blinking object, leaving visiblility as vis 
tmrBlink. Enabled = False 
If BlinkControi Is Nothing Then 

'do nothing 
Else 

BlinkControi .Visible - vis 
End If 

Set BlinkControi * Nothing 
End Sub 



Sub ButtonAction () 

•perform action associated with selected button 
Dir. button As Integer 
Dim cardNo As Integer 
Dim msg As String 

button = Cards (current) .selected 'item r.urJber of selected button or. , 
cardNo * Cards i current ). item (button ) 'card number of selected button 
If button < 1 Then Exit Sub 

Select Case Cards ( cardNo ). act lonCode 
Case actNONE 

'an inactive button 

SetZnfo -This option is not yet available.-, greyCOLOR 
Case actNEXT 

•display the next card 

Animate "Next*, Cards ( current :. item < but t=n ) 
Case act DOMAIN 

•change current domain before going tc the next card 
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cur r Domain = Val (Cards (car dNo) .act lonData ) 
SetStatus Cards (car dNo i . name. greyCOLOR 
Animate "Next-, Cards (curr n:) . iter.i button) 
Case act MORE 

5 -show mor choic s on same topic (currently same as actNrJCT) 

Animate -Next". Cards < current ). iter. (button ) 
Case act COMING 

* show schedule of what's coming up or. TV 
Animate "Select " . 0 

w sameFiiter = False 

Set views ( turr Domain) = frmCommg 
returnCcde = SHCWVIEW 
y.e.Hide 
Case act NOW 

• show what ' s on TV now 

currViewt currDomain) = "TV 6:3: P n : - obviously, this wou.d be the current 

tine 

Animate -Select". 0 
sameFiiter = False 
same View = True 

Set views (currDomain) * list" rm< curr Domain) 
retumCode = SHOWVIEW 
Me. Hide 
Case act LATER 

•show what's on TV for a later day 
'currently non- functional 
•Animate "Select". D 
'sameFiiter = False 
'Set views (currDomain) » frmFricay 
returnCode - SHOWVIEW 
Me. Hide 
30 Case actWEEK 

•show TV schedule for weekdays 
Animate "Select- . 0 
sameFiiter = False 
Set views (currDomain) = frmWkcay 
returnCode = SHGWVIEW 
Me. Hide 
Case actWKENO 

• show TV schedule for weekend 
'currently non -functional 
Animate "Select". 0 
40 '■ sar.eFilter = False 

'Set views (currDomain) = frmWkend 
returnCode * 3HOWVIEW 
Me. Hide 
Case actSCHED 

'show TV schedule 
currently non- functional 
•Animate "Select". C 
'sameFiiter = False 
Set views (currDomain) * trrScr.ed 
returnCode « SHOWIFa' 
50 Me. Hide 
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Case actALPHASHO? 

♦gee a string from user, search for iters beginning with us^ ^ 
note: this would probably be v ry differ nt spring 
Animate "Select", 0 

SetStatus 'Shopping, - & Cards (car cKo >. name . greyCOLOR 
msg = Cards (cardNo > .actionData ^eytOLOR 
Setlnfo msg, YELLOW 
Wait frmAlpha 

If returnCcde <> 3ACK And userStrmg <> Then 
sameFilter » raise 
filters ; currDomain) * "item- 
Set views* currDomain) « iistFnru currDomain > 
returnCode - SHOWVIEW 
Me. Hide 
End If 
Case actALPHATV 

•allow user to select a show ti-le 
Annate "Select" . C 

SetStatus "TV, - * Cards (cardNo) .name, greyCCLOR 
returnCode * pick 
20 Me. Hide 

Case actALPHAMOV 

'This is not hooked up to work, but would probably be 

a lot like actALPHTV V 
'Animate "Select". 0 
Case act FILTER 

'send a new filter to a TV view 
filters (currDomain) . Cards (cardNc ). act ionData 
currrilter(currDomain) - Cards ( cardNo >. infotext 
samer liter = False 
sameView * True 
returnCode * SHOWVIEW 
Me . Hide 
Case actMOVIE 

'show a movie list 
Animate "Select", 0 
35 x * current > homeCARD Then 

•the view <a filter) is changing 

currView( currDomain) = Cards ( cardNo >. infotext 

viewFilter - Cards ( cardNo) . act ionData 

sameView a False 

sameFilter * False 

40 Else 

'the category is changing 

f Ur ^r;r (C ^! rDCmainI ' " ! " * c "ds;cardNo). infotext 
t-.ters.currDomain) « Cards (cardKc; . act ionData 
sameView « True 

45 sameFilier = False 

End If 

Set views, currDomain) . listFrm(currDomam) 
returnCode « SHOWVIEW 
Me. Hide 
Case actSTCRE 
50 'show a list of stores 
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Animate 'Select* . 0 

Setlnfo -Choose a store:". TURQUOISE 

SetStatus -Shopping- . greyCOLOR 
5 sameFilter « False 

filters (currDomain) « • store - 

Set views (currDomain) » listFrm( currDomain) 

retumCode = SHOWVIEW 

Me.rlide 
Case actDEPT 
10 ' show products from a department 

Animate 'Select", 0 

SetStatus "Shopping. - & Cards i cardNo >. infotext. greyCOLOR 
sameFilter = False 
f i Iters (currDomain) * "depf 
userString * Cards (car dNo )- name 
Set views (currDomain) = 1 istFrm ( currDomain) 
retumCode * SHOW/IDV 
Me. Hide 
Case shcrtTWIEW 

•Show last TV schedule or list 
20 Animate -Select", 0 

currDomain = TV 

If views (currDomain) Zs Nothing Then 

Set views (currDomain) = frmComing 
End If 

sameFilter = True 
retumCode = SHOWVIEW 
Me. Hide 
Case shortMWTEW 

•Show lat mcvie list 
Animate -Select", 0 
30 currDomain « MCVIE 

If views (currDomain) Is Nothing Then 

Set views (currDomain) = listFrm ( currDomain J 

End If 

sameFilter » True 
retumCode = SHOWVIEW 
Me. Hide 
Case shortSFVIEW 

'Show last shopping view 
Animate "Select". 0 
currDomain = SHOP 
40 if views (currDomain) Is Nothing Then 

Set views (currDomain) = listrrm I currDomain) 

End If 

sameFilter * True 
-retumCode = SHOWVIEW 
4S Me. Hide 

Case snortTVNOW 

' show all TV shows on now 

'•"^F- Icer'currDomairj = "All Categories" , 
cu^vI^currDomain, = "TV 6:30pm : - obviously, -.his would b. th. currer.c 

time 

SO Animate "Select*. 0 
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currDomain « TV 
filters (currDomain) * 
sameFilter » raise 
same View = True 

Sec views (currDomain ) = listFrrr.( currDomain i 
returnCode • SHOWVIEW 
Me. Hide 
Case actKEYS 

'Only for development, wouldn ' z stay 
SetKeys Cards (cardNo ). act ionDat a 
SetStatus Cards (cardNo t. inrotext . i lemCOLOF. 
current « homeCARD 
DispiayCard current 
Case actTABS 
/5 'only for development 

ToggleTabs 
Case Else 

MsgBox "Sad action code for card - u Cards ( cardNo) . name 
Stop 
End 
End Select 
End Sub 

Sub ChangeSel (direct As String) 
•do button navigation 
2s Dim n As Integer 

Dim last As Integer. Sel As Integer 
n ■ Cards (current ) .NItercs 
last ■ Cards (current ). selected 
If last « 0 Then Exit Sub 

30 It direct = -Right- Then 

'move right with wrap around 
If last = n Then 
Sel » 1 

Else 

35 Sel « last * 1 

End If 

Elself direct = "Left" Then 
•move left with wrap around 
If last = 1 Then 
Sel * n 

Else 

Sel * last - 1 
End If 

Elself direct = "Up- Then 
'move up. no wrap around 
4$ If last > XAXCOIS Then 

Sel * last - MAXCOLS 

Else 

Sel » last 
End I f 

Elself direct * •Down" Then 
so move down, no wrap around 
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If las" <= n - MAXCOLS Then 
Sel • last * MAXCOLS 

Else 

5 Sel » last 

End If 
Else 

MsgBox "Bad Direction* 
End 
End If 

10 \ 

Cards < current selected = Sei 
L'pdateSei 
End Sub 

1S Sub DisplayCard (index) 

'takes care of displaying menu on screen 

Dim depth As Integer 'number of visible cards 

Dim i As Integer ' counter 

rim ancestor As Integer 'card numbers 

20 current ■ index 

parent ■ Cards (current ). parent 
depth = Cards (current ). level 

'hide cards after (in front of) current 
2S For i « MAXCARD To depth * 1 Step -1 

sspTitle ( i ) .Visible = False 
sspCard(i) Visible = False 
Next i 

•make sure previous tab names are correct and visible 
30 ancestor * current 

For i = depth - 1 To 1 Step -1 

ancestor - Cards lancestor) . parent 
sspTitle C). Caption * Cards (ancestor )- name 
sspCardf i) .Visible = True 
3S sspTitle ( i) .Visible = True 

Next i 

' show current card 

sspTitle (depth) .Caption « Cards ( current >. name 
sspCard (depth) .Visible » True 
40 sspTitle (depth) .Visible = True 

'show buttons on current card 
Displayl terns 
End Sub 

45 

Sub Dispiayltems ( ) 
'displays buttons on a card 
Uim Area As SSPanel 
3im i As Integer 
Dim Dx. Dy . x. Y, w, h 
50 Dim NI terns As Integer 
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NItems = Cards (current ). NI terns 

s Sec Area = sspCard (Cards ( current l . level )' this is a pointer, not a copy 

'calculate size of button 

Dx ■ Area. Width • .9 / MAXCOLS 

Dy - Area. Height • .9 / MAXROWS 

w ■ Dx * .9 

If w > 3 0 Then w ■ 30 
10 h a 2y • . 9 \ 

If h > 2 0 Then h * 20 

ssp31in:-3G. Visible * False 
sspaiinkBG. ZOrder 0 "bring to front 
•place and show each button 
For i • 1 To NI terns 
sspltemt i ) .Width » w 
sspltem< i > .Height ■ h 

sspltero( i ) .Caption « Cards (Cards ( current ). i tern ( i )). name 
If Cards {Cards (current J . item ( i ) ) . act icnCode ■ actNONE Then 
'turn inactive buttons grey 
ssplteml i > . SackColor « greyCOLOR 

Else 

sspltem(i) . BackColor * itemCOLOR 
End If 

x - Area. Left - .05 * Area. Width * [Hi - 1) Mod MAXCOLS; - .5) • Dx 
Y = Area. Top ♦ .05 * Area. Height ♦ { Int ( ( i - 1) ,' MAXCOLS ) ♦ .5> * Dy 
Centerltem ssplteir. ( i ) , x f Y 
sspltem(i) .ZOrder 0 
sspltem(i) .Visible = True 
Next i 

'make blinker bigger than buttons 
CPlace 2, sspBlink3G. sspltemt 1) 

"hide unused buttons 
For i » NItems * 1 To MAXITEM 

ssplteml i ) .Visible » False 
Next i 
L'pdateSel 
End Sub 

Sub Fcrrr._Activate () 
<*0 check for a return code from another form 

sspCont .Visible = False 
Select Case returnCode 
Case 3ACK 

If current < homeCARD Then current = iastCard 
SetStatus "Use arrows and select or use keypad.". greyCCLCR 
OisplayCard current 
UpdateSel 
Case SHORTCUT 

current « homeCARD 

SetStatus -Use arrows and select or use keypad.-. greyCOLOR 
50 DisplayCard current 
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UpdateSel 
Case FILTER 

SecScatus "Use arrows and select or use keypad.". greyCCLOR 
Tf current < homeCARD Then 
DisplayCard current 

Else 

lastCard = current 
Select Case cur r Domain 
Case TV 

DisplayCard filterCARD 
Case MOVIE 

DisplayCard mfilterCARO 
Case SHOP 

DisplayCard current 
End Select 
End If 
UpdateSel 
Case COMING 

•to get from TV list view to schedule view 
Cards (current ). selected » 2 
sameFilter ■ False 

Set views ( cur r Domain ) » frmComing 
returnCode = SHOWVIEW 
Me. Hide 
End Select 
d Sub 

b Form_KeyDown (KeyCode As Integer. Shift As Integer > 
Dim index As Integer 
Dim n As Integer 

Select Case KeyCode 
Case 5_BACK 

•Go up in menu hierarchy 

Animate -Back". 0 
Case S_HELP 

InvokeHelp 
Case B_ PREVIEW 

userStation = 1 

userStart = fakeTime 

returnCode » TOTV 

Xe .Hide 
Case 3_SELECT 

Do button action 

But tonAction 
Case 3_RIGHT 

ChangeSel < "Right" ) 
Case 3_LEFT 

ChangeSel ("Left") 
Case 3_UP 

ChangeSel ("Up") 
Case 3_DOWN 

ChangeSel ("Down") 
Case 3_?AGEU? 
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Case 3_ PAGEDOWN 

•use numeric key pad to choose a button directiy, without navigation 
Case B_l 

If Cards ( current ) .NItems > 0 Then 
Cards ( current ) .sel ct d * 1 
UpdateSel 
ButtonAction 
End If . 
Case 3_2 

If Cards (current J .NItems > 1 Then 
Cards ( current •. selected ' 2 
UpdateSel 
ButtonAction 
End If 

1S Case B_3 

If Cards (current J .NI terns > 2 Then 
Cards (current) . selected » 3 
UpdateSel 
ButtonAction 
End If 
Case B_4 

If Cards (current) .NItems > 3 Then 
Cards (current) .selected » 4 
UpdateSel 
ButtonAction 
25 End If 

Case B_5 

If Cards (current) .NItems > 4 Then 
Cards (current) .selected = 5 
UpdateSel 
ButtonAction 
End If 
Case B_6 

If Cards (current ) .NItems > 5 Then 
Cards (currenz) . selected « 6 
UpdateSel 
3S ButtonAction 
End If 
Case B_^ 

If Cards (current) .NItems > 6 Then 
Cards (current) .selected * 7 
UpdateSel 
ButtonAction 
End If 
Case B_8 

If Cards (current) .NItems > "» Then 
Cards (current) .selected » 9 
45 UpdateSel 

ButtonAction 
End If 
Case B_9 

If Cards (current) .NItems > 8 Then 
Cards < current) .selected - 9 
UpdateSel 
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Zr.d It 
Case 3_0 

current « homeCARD 

DisplayCarc current 
Case Asc< - Q"> 

Zr.d 
Er.d Select 
d Sub 

c Forrr._I,oad ( ) 

"set fonts and colors 

sspCard<C ) .BackColor = backgroundCOLCR 
sspTitle (0) .BackCoicr = backgrouncCCLOR 
sspItemlO > .BackColor = itemCClOR 
ssp31inkBG.BackColcr = highlightCOLCR 
sspItem(C ) . FontSize = mediumFONT 
sspCard (C ) . FontSize = mediumFONT 
sspTi tie ( C ) . Fcr.tSize » mediumFONT 
Me.BackColor » forrnCOLOR 
•fit into display area 

SizeAFcrm Me. cispTop, dispHeight. dispLeft, cispWidth 

Me. Scale (0. OI-U00, 100) 

•set global return code to default 

returnCcde » BACK 

'read in menu hierarchy for rclodex 
PepulateCards 

load graphical objects 
LoadGraphics 

' set current card on screen 
DispiayCard homeCARD 
c Sue 

b LoadGraphics ( ) 

Dim i As Integer 'counter 
Dim tabHeight 

' load buttons 

For i = 1 To MAX IT EM 

load sspltem(i) 
Next i 

' shape prototype card 

sspCard(O) .Top = sspItemO ). Height 

sspCard(C) .Height » 100 - CARDS K I FT - sspCard ( C ) . Top 
sspCard (Gi .Left * 2 • CARD SHIFT 
sspCard(C) .Width = 100 - 4 • CARDSKIFT 
• shape prototype - a ° 
sspTitle ( 0 ) . AutoSize « False 

sspTi-le(C! .Width = sspCard I C ). Width • MAXTITLE - CARDSKIFT 
' load and shape cards and tabs 
:cr i = 1 To MAX CARD 
load sspCard ( i ) 

sspCardti i .rieight « sspCardli - 1). Height - CARDS HI FT 
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sspCard ( i J .Top = sspCard (i - 1 ) . Top • CARDSKIF T 
sspCard(i) . ZOrder 
Load sspTi tie ( i ) 

sspTitle ( i 5 .Top = sspCard { i ) . Top - sspTit le ! 0 ) . Heigh. 2 
Select Case <i Mod MAXTITLE) 

'note: these cases are net flexible for different MAXTITLE 
Case 1 

sspTitle(i) .Left = sspCard ( i i . Le: t 
Case 2 

sspTitlei i > .Left « sspCard 1 1 : . Lef- - sspCard ( i J . Width 2 - 
sspTitle ? i ) .Width » 2 
Case 0 

sspTi tie ( i ). Left * sspCard ( i i . Left * sspCard ( i ). Width - ssp: 
End Select 
sspTitle ( i > . 20rder 
Mext i 
End Sub 



Sue PopulateCards ( / 

'This subroutine reads in the card data from the 
20 'CARDFILE file defined as a constant. The cards 

•will be numbered 1 to the number cr lines (cards) 
•in -he file. All special cards should come before 
•the home card (by convention), ana are named as 
•constants in the declarations. Each card record 
'should have a level (integer), iter, selected (integer:, 
'a name (string), an info string (string), and 
'an action code ,'integer). If the action code is greater 
'than actNEXT. one additional input (variant type; is read 
•for the card. 

Din last As Integer, parent As Integer 
Dim selected As Integer 
Dim index As Integer. itemNo As Integer 
Dim level, title, text, action 
Open CARDFILE For Input As * 1 

3S 'make dummy parent for top level 

index = D 

Cards i index) .name = 'root- 
Cards (index) .level « 0 
Cards ( index) .NI terns * 0 
While Not EOF ( 1 ) 
40 last = index 

index = index ♦ 1 

Input H , level, selected, title, tex: . action 
Cards < index) . level = level 
Cards ( index) . selected = selected 
Cards ( index) .name » title 
Cards ( index) . infotext e text 
Cards c index ). accicnCode = action 
If action > ac tMEXT Then 
Input *i, action 

Cards ( index >. actionData = action 
so End :f 
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Cards ( mdexi . NItems « D 'initialize number of items 
If Cards ( index) . level « Cards ( last level » 1 Th n 
•Child of last 
parent » last 
Slself Cards ( index) . level <« Cards ( last ). level Then 
'Sibling or cousin, back up tc find parent 
Do While (Cards ( index) . level < Cards ( last ). level ) 
Find last sibling 
last = Cards ( last i . parent 
Loop 

parent = Cards ( last /. parent 
Else Skipped a level, text file is incorrect 

MsgEox -3ad level in text file." 

Stop 

End 
End If 

Cards < index » .parent = parent 
•Add self to parent's list of items 
itemNo » Cards ( parent >. NItems «• 1 
Cards (parent ) .Nit eir.3 - itemNo 
Cards (parent item ( itemNo » ■ index 
Cards ( index) . self » icemNo 
Wend 

Cards ( C ) .NItems » 1 
Close »1 
End Sub 

Sub tmrfilink_Timer () 

BlinkCcncroi .Visible = Not BlinkControl .Visible 
End Sub 

Sub TcggleTabs ( ) 

'toggles offset of tab placement; development only 
Dim i As Integer 
Static offset 
If offset « 3 .5 Then 

offset = 2 
Else 

offset = 3.5 
End If 

Tor i * 1 To 9 

sspTitle(i) .Top * sspCard( i : .Top - sspTi tie ( C >. Height 
Next i 
End Sub 

Sub "JpcateSel : : 

•put blinking highlight in correct location, update info bar 
Dim i As Integer 
Dim x. V 
Dim S As SSPanel 
Dim text As String 
Dim color 

51 ink 5 top False 'turn blinking off 
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i * Cards (current ). selected 
If i > 0 Then 'something is selected 

Set S = sspltem(i) *S is pointer to button 
' find center of butt n 
x * S.Left ♦ S. Width / 2 
Y « S.Top ♦ S. Height / 2 
'put blinker behind button 
Centerltem sspBlmkSG. x. Y 
'resume blinking 
BlmkStart sspBlinkBG, True 
End Zz 

text ■ Cards (Cards (current > . item ( Cards « current ) .selectee) j . ir.fotext 
color = ssp Item (Cards (current ) .selected) .3ackColcr 
Seclnfo text, color 

Er.c Sub 

Sub Zoom (n As Integer. C As Control, Dest As Control) 
'ar.iir.ates control C changing size to control Dest 
Sim i As Integer, j As Integer 
Dim dl, dw, dt. dh 
dl = (Oest.Left - C.Left) / n 
dw « (Dest. Width - C. Width) / n 
dt » (Dest. Top - C.Top) / n 
dh = (Dest. Height - C. Height) / n 
C. ZOrder 

C.AutcSize » False 
For i = 1 To n 

C.Move C.Left - dl. C.Top - dt . C. Width ♦ dw, C. Height * dh 
C. Refresh 
Next i 
End Sub 

•==== s = SELECT form code ■««=== 

'This form is another attempt at alphabetic input that allows oniy valid input. 

It relies on the TV titles database which has two tables. The reference table is 
used first 

3S ' and contains a count of all items starting with each letter of the alphabet or 

with a 

symbol or number. The user is first presented with a list of possible starting 
letters 

{each item in the first on-screen list may have several letters in it) . Once a 
starting 

letter is chosen, a snapshot is made of matching entries from the table of titles. 
Each list the user sees has only valid choices for the next letter, or cull titles 

if 

a particular title is distinguished from all others by the letters chosen so far. 
The best way to understand is to see the form in action before reading the code. 
The code could easily be modified to work with other data such as lists of movies 
etc . 

ncie: the non-proportional font used in the itemBoxes is Courier New 
Option Explicit 

Dir DB As database 'the full database 
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Dirr. listdCCC} As String 'the list of selection strings 
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Dim leaf -lOOOi As Integer 'true if nth item is a leaf, false otherwise 
Dim list End As Integer 'number of last element in list 
::- currPrefix As String 'the 1 tters chosen so far 

initialList As Integer 'boolean 'true if this list has multiple letters per item 
Dim BlmkControl As Control 'not used, currently no blinking object 
Dim itemSelected As Integer 'from 1 to MAXDISPLAY 
Dim locSelected As Integer ' from 1 to MAXLOC 

::r. rowOffset "difference between cops of two consecutive reduced items 



io database 

Dir. allData As snapshot 
Dim filterData As snapshot 

Dim marker (IOC) As String 'bookmarks of each MAXDISPLAY items 
Dim locStart ( IOC ) As Integer * rltem index for start of locator 

1$ ... 

•cispiay parameters 

Const MAXDISPLAY = 6 'Number of items in close up 
Dim MAXITEM As Integer 'Number of items in whole list 
Dim MAXLOC As Integer 'Number of locator positions 

Dim whichrltenwMAXDISPLAY) As Integer 'which rltems are in the current display 
20 Const GAP = 10 'space around lists 

Const EXTRA = 70 'room for longer programs 

Const reducedEXTRA * 20 'room for longer programs in reduced rep 
Const T = 50 
Ccnst H = 1000 - 2 * T 
Const locL = 30 'for reduced list 
^ Const locW = 10C 

Const dispL » locW * 2 * locL 'for display list 
Const dispW = 1C0C - dispL - locL 



Sub Siir.kStart (C As Control, vis) 
30 Set SlinkControl C 

BlinkControl .Visible » vis 
tmrBlink . Enabled * True 
End Sub 



3S Sub BlinkStop (vis) 

tmrBlink . Enabled » False 

If 31inkControl Is Nothing Then 'do nothing 
Else 

3linkControl .Visible = True 
End If 

40 Set 31inkControl = Nothing 

End Sub 
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Sue ChangeLoc (direct As String) 
page up or down with the locator 
Select Case direct 
•Case ' r Jp - 

If locSelected > 1 Then 

locSelected = locSelected - 1 
RedcDisplay 
End I f 
SO Case "Dcvcn" 
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If locSel cted < MAXLOC Th n 

locSeiected » locS lected * 1 
RedoDisplay 
End If 
End S iect 
End Sub 

Sub ChangeSei (direct As String! 
'Perform list navigation 
Select Case direct 
Case "Up" 

If itemSelected > 1 Then 

'move up within ;ter.s currently displayed 
itemSelected * itemSelected - 1 
is selector. Top * i temBox ( itemSelected) . Top - GAP 

rltem(O) .Top = locator. Top - rowOffset • (itemSelected - 1) 
Setltemlnf o 
Elself locSeiected > 1 Then 
'display previous section of the list 
itemSelected * MAXDISPLAY 
locSeiected » locSeiected - 1 
RedoDisplay 
End If 
Case "Down" 

If itemSelected < MAXDISPLAY Then 
2S 'move down within items currently displayed 

•do not move to select an empty item 

If (locSeiected - 1) • MAXDISPLAY ♦ itemSelected < MAX IT EM Then 
itemSelected ■ itemSelected ♦ 1 
selector. Top » itemBox ( iiemSe lected I . Top - GAP 
rItem(0).Top = locator. Top ♦ rowOffset • (itemSelected - 1) 
Setltemlnf o 
End If 

Elself locSeiected < MAXLOC Then 
'display next section of list 
itemSelected = 1 
3$ locSeiected * locSeiected * 1 

RedoDisplay 
End If 
End Select 
End Sub 

40 Sub Deselect () 

finish wich leaf value or create a new list based on users choice of prefix 

Dim index As Integer 

Dim count As Integer 

Dim i As Integer 
4S Dim next Char As String 

Dim looking As Integer 'boolean 

Dim title As String 

index « locStart (locSeiected) ♦ itemSelected - 1 'index in list of item 
selected 
50 If leafi index* Then 
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* sel ccion made; show next view 
title » r enoveAnper sand ( list ( index ) ) 

f ilterData. FindFirst "SelectTitle = & title & 

5 If f ilterData. NoMatch Th n 

Do "prompt for different title until found 

•note: this should never happen, it's only in the list if it's in the 

database 

title = InputBox (title & * not found. Enter new title:", title: 

f ilterData. FindFirst "SelectTitle = « title & 

10 Loop Until Not f ilterData. NoMatch 

End If 

userString » f ilterData { "FullTi tie - ) 
Set views (TV) - frmWeek 
same": 1 ter * False 
returnCode = SHOWVXEW 
Me. Hide 
Else 

' indicate to user that something is happening 
itemBox ( itemSelected) . 3ackColor = greyCOLOR 
Set Info "Loading data, please wait...*, greyCOLOR 
20 Dc Events 

i « LenCist (index) ) 

currPref ix * ' " 

If initialList Then 

currPref ix « list (index) 

Else 

•remove underline formatting (&) from prefix 
If i > 2 Then currPref ix « Left (list ( index ) , i - 2) 
currPrefix » currPrefix & Right ( list ( index > , 1) 
End If 

Se^Status "TV Titles starting with " i currPrefix, greyCOLOR 
30 'construct new list 

If initialList Then 

'list items are special, not prefixes 
If index * 1 Then 

'Symbol or Number selected 
35 initialList - False 

f ilterData. Filter » ^SelectTitle < *A'" 
currPrefix = " " 

Else 

'a list of letters selected 
listEnd = 0 

40 For i ■ 1 To Len( currPrefix) 

'strip out the letters (ignore commas) to make a new list 
If Mid(currPref ix. i. 1) >= "A" Then 
listEnd ■ listEnd ♦ 1 

list (listEnd) • "&* & Kid { currPref ix. i. 1) 
4S leaf(i! = False 

End If 
Next i 
End If 

Else 

'refilter data to natch the new prefix 
50 f ilterData. Filter = 'SelectTitle lixe ' " * currPrefix fc 
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End If 

'data assumed to be already sor-ed 
If Not initialList Then 

'still need to creat new list from daca 

Set filterData » f iiterData .CreateSnapshot ( ) 
f i 1 terData . MoveFirs t 
listEnd = 0 

For i « AscC -) ro Asc { "Z" ) 'space, punctuation, and le-^ s 

next db iCe ^s°cJar ShOUld ^ ^ UP * ^ *' 
count » C ; looking « True 
While Not filterData. EOF And looking 

nexcChar = Mid{ filterData ( "Select Title " ) , Ler. ( currPref ix ) - 1 

If nextChar = Chr<i; Or nextChar = LCase C Chr ; i 3 ) Then 
count = count * 1 
filterData .MoveNext 

Else 

looking » False 
End If 

Wend 

Select Case count 

Case 0 'do not add to list 

Case 1 'make a leaf entry 

f il terData . MovePrevious 

listEnd « listEnd ♦ 1 

list (listEnd) = fixAmpersand {{ filterData < "SelectTitle" •» ) 
leaf (listEnd) » True 
filter Da t a . MoveNext 
Case Else 'make a non-leaf entry 
filterData. MovePrevious 
listEnd = listEnd ♦ 1 

list(listEnd) « currPrefix i & Chr < i > -underline new char 

different ' Underlining is *ust one mechanism for emphasising what 

leaf (listEnd) * False 
filt e r Da ta . MoveNext 
End Select 
Next i 

If filterData . RecordCount <= MAXDISPLAY Then 
display red ° liSC C ° taV * jUSC leav * 5 iR — ' if -*<*y *^ in one 

listEnd » 3 
filterData . MoveFirst 
While Not filterData. EOF 
listEnd * listEnd - 1 

list (listEnd) = fixAmper sand (( filterData ( "SelectTi tie- )) ) 
leaf ! listEnd) » True 
f i 1 terData . MoveNext 

Wend 
End If 
End If 
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disp-ay the newly created lisc 
-erJBoxlitemSeiectedl.BacicCclor = itemCOLOR 'restore itemBox color 

ir.-tialList • False 
If ILszZnd > 1 Then 
KewL;sc 

Else , . 

•automatically select item it only one in -ist 

IccSelected ' 1 
itemSelected * 1 

Deselect y 
End Zt 
End Zt 
Hnd Sub 

Sub Forr._Accivate () 

•always begin with initial list 

LoadEata 

NewList 
End Sub 

Sub Fcrm_KeyDown (KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case Asc ( -Q" ) 

End 
"ase B BACK 

" note:" do we wane ability --o back up one level from a particular choice 

th8 " S ". could have B.BACK go back one list then back to menu after another pre 
retumCode « BACK 
Me. Hide 
Case B_HEL? 

InvokeHelp 
Case B_PREVTEW 
Case 3_S ELECT 

DoSelect 
Case B_UP 

ChangeSel {"Up") 
Case B_DOWN 

ChangeSel (-Down - ) 
Case B_RIGHT 
Case B_LEFT 
Case S_PAGEUP 

ChangeLoc ("Up") 
Case 3_PAGEDOWN 

ChangeLoc ( " Down " ) 
Case B_FILTER 
Case B_G 

returnCode = SHORTCUT 
Me. Hide 
End Select 
Er.d Sub 

Sub rcm.Load ( ) 

Dir. i As Integer 'counter 
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Dim itemRoom 



•set colors and fonts 
it mBox(C) .Fonts ire « largeFONT 
rightArrow(O) . FontSize * largeFONT 
rltem(C) . BackColor » itemCOLOR 
selector. FillColor » highlightCOLOR 
displayList .FillColor - backgrcundCCLOR 
locator .FillColor * backgroundCCLOR \ 
itemfioxtO) .BackColor = itemCOLOR 
rightArrowiO) .BackColor « itemCOLOR 
shpSlot . SorderColor = siotCOLOR 
'size and place the objects to the screen 
SizeAForm Me. DispTop, DispHeight. OispLeft. DispWidth 
Me. Scale (0. 0)-<lC00, 1000) 

SizeAControl locator. T - GAP, H ♦ GAP. locL - GAP. locW * 2 • GAP 
SizeAControl shpSlot, T, H. locL ♦ reducedEXTRA. locW - 2 • reducedEXTRA 
SizeAControl displayList, T - GAP. H ♦ GAP. dispL, dispW 
locator .ZOrder 
shpSlot .ZOrder 
rItem(Ci .ZOrder 
itemRoom » H / MAXDISPLAY 

, . fi" AC ° ntr01 lCe:nBo *' 0 >' T * ( . 5 GAP}, itemRoom - GAP . dispL ♦ EXTRA . dispW 
* £»XTRA 

SizeAControl leftArrow<0) . T * (.5 • GAP). itemRoom - GAP, dispL. EXTRA 

r.v^f 12 o ACCnCr01 ri S htA " ow <0» ■ T * (.5 • GAP) , itemRoom - GAP. dispL - dispW - 
iiXTRA , EXTRA 

SizeAControl selector. T, itemRoom - GAP, dispL. dispW 

selector .ZOrder 

For l • 1 To MAXDISPLAY 

Load itemSoxti) 
30 itemSoxii) .Visible * False 

itemBoxli) .Top = i temBox ( 0 ) . Top ♦ (i - l) • icemRccm 

Load rightArrow(i) 

rightArrow(i) .Top = i temBox { i J . Top 
Next i 
35 End Sub 

Sub LoadData ( ) 

Dim re f Snap As snapshot 

Const MAXTOG ETHER « MAXDISPLAY 'number of letter allowed in one i temBox 



Dim togethe: 

fill initial selection list 
listEnd - 0 

Set D3 « Oper.Database(TVTitles> 

Set ailData « DB . CreateSnapshot ( -Tit les" ) 

•create initial list 

Set refSnap = DB . CreateSnapshot ( "Reference" ) 
refSnap.MoveFirst 

together - MAXTOG ETHER 'indicate need for new item 
While Not ref Snap . EOF 

Select Case ref Snap ( 'Number " ) 
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Case D 

•do not add to list 
Case 1 

•make a leaf entry 

listEnd a listEnd ♦ 1 

allData.FindFirst "SelectTitle like ■ & ref Snap ( "Letter- ) & ••" 
list (listEnd) = allData < "SelectTitle" > 
leaf ( listEnd: = True 

together « MAXTOG ETHER \ 
Case Else 

Zi refSnapf "Letter") » - #" Ther. 

listEnd » listEnd ♦ 1 

list { listEnd) * "Symbol or Number" 

together » MAXTOG ETHER 

•note: DoSelect relies on this entry being the first list item 

Else 

If together >= MAXTOG ETHER Then 
listEnd = listEnd ♦ 1 
list(listEnd) » ref Snap (" Letter ' ) 
together « 1 

Else 

list (listEnd) = list ( listEnd) & ", " & ref Snap < "Letter " ) 
together ' together ♦ 1 
End If 
End If 

leaf (listEnd) = False 
End Select 
ref Snap .McveNext 

Wend 

Set filterData = allDaza 
initialList = True 
End Sub 

Sub NewList { ) 

'remakes the display for a new list 

•no:e: should itemSelected be initialized to something other than 1? 
Dim i As Integer 'counter 

Dim section As Integer 'count the number of locator locations 
Dim msg As String 

'clear captions 

For i « i To MAXDI SPLAY 

itemBox(i) .Caption » "" 

Next i 

For i = 1 TO MAX IT EM 

Unload rltem(i) 
r.'ext i 

MAXTTEM = listEnd mrtber of items in list 

load the reduced item shapes and size relative to MAXITEM 
rswOifset = (H - r Iter. ( 0 >. Height > / MAXITEM 

Zi rowOffset > r :tem< 0 ). Height ♦ GAP Then rowOffset » rltemiO) .Height * GA? 
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rltem(O) .Visible = False 
rltera<0> .Top = T 

rltem(O) .Left = locL * reducedEXTRA 
rltem(O) .Width - locW - 2 * reducedEXTRA 
rltem(O) .BackColor ■ itemCOLOR 
filterData.MoveFirst 
si2e and place the item shapes 
*and set section bookmarks 

section = 0 'number of locacsr locations 
For i = 1 To MAXITEM 
Load rltemfi) 

rlcemU) .Top = T ♦ ( i - l j * rowOffset 
If ((i - 1) Mod MAXDISPLAY) * 0 Then 
'begin a new locator location 
15 section = section ♦ 1 

locStart (section) = i 
End r f 

If Net leaf (i) Then 

rltem(i) .Width * rltem( i ). Width * reducedEXTRA 
End If 

rlteir.(i) . ZOrder 
rltemfi) .visible * True 
Next i 

MAXLOC « section 

locStart (section ♦ 1) « MAXITEM ♦ 1 

2$ 

'set length of minselector 
'use rltera(O) as mini selector 
rltem(O) .Left = locL - GAP 
rltem(C) .Width = locW - 2 • GAP 

'initialize selector and locator 
itemSelected * 1 
locSelected » 1 

rltem(O) .BackColor = highlightCOLOR 

3S ' set the captions in the itemBoxes 

RedoDisplay 
End Sub 
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Sub RedoDisplay ( ) 
set the captions in the itemBoxes to correspond to items in locator 
reposition locator, selector and se: item info in info box 

2im last As Integer 'number of last item m display 
-'im i As Integer * counter 

Sim index As Integer "index of item ir. list 

index = locStart ( locSelected) 
For i = 1 To MAXDISPLAY 

If index > MAXITEM Then 

'hide empty itemBox 

it emBox(i) .Caption * 

itemBox (i) .Visible s False 
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rightArrow(i) .Visible s False 

Else 

it mBox (i) .Caption « list(index) 
If Not leaf (index) Then 

•show right arrow and put in all caps 
rightArrow< i ) .Visible * True 
itemBoxti) .Caption - UCase l 1 ist ( index) } 

Else 

rightArrow(i) .Visible = False 

End If 

itemBox(i) .Visible * True 
last » i 'remember last valid selection 
index = index ♦ 1 
End If 
15 Next i 

'Do not allow blank to be selected 
If itemSelected > last Then 

itemSelected * last 
End If 
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•fix the rest of the display 

displayList. Height = H ♦ 2 * GAP - ( H / MAXDISPLAY • (MAXDISPLAY - last)) 
selector. Top « itemBox ( itemSelected) .Top - GA? 
locator. Top » T * rowOffset • < locStart ( locSelected) - 1) 
locator .Height » last * rowOffset ♦ rltem<0) .Height - rowOffset 
rltem{0) .Top » locator. Top ♦ rowOffset * (itemSelected - 1) 
rlteir.O) .Visible « True 
Setlter.Inf o 
End Sub 

Function removeAmpersand (oldText As String) As String 
• for each double ampersand, remove one of them 

Dim text As String 

Dim newText As String 

Dim i As Integer 



text = oldText 
newText - mm 
While InStrUext, "t&") 
i = InStr<text. 'Wl 
newText « newText k Left (text, i) 
40 -ext = Right (text, Len(text) - <i ♦ 1) ) 

Wer.d 

removeAmpersand » newText & text 
End Function 

45 Sub Setltemlnfo () 

•pur the relevant info for current item into info box 
-xm msg As String 
Dim index As Integer 
Dim r As snapshot 
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Me. Visible Then 
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index • locStart ( locSelected) - itemSelected - 
Zi leaf (index) Then 

'get full cicl from data 

Set F s filterData 

F.FindFirst "SelectTitle = « list(index) & 

msg * F{ -FullTitle- ) 

Else 

rnsg = "Titles beginning with ■ ■ & list: index) « 
End Zt 

Setlnfo rr.sg. ( itemBox ( i temSelected) . BackCc* o~ ) 
End If 



End Sub 

Sub tmx3iink_Timer () 

/5 31i n ;<control. Visible - Not 51 inkContro i . Visible 

End Sub 

" -•««■ START form code 

•This startup form allows the developer to choose display mode 
(either for ?C, TV, or mini PC for making screen prints) 
•hen starts the actual program by calling Main 
Option Explicit 



Sub Form_Load ( ) 

returnCode s STARTUP 
2S End Sub 

Sub rainiButton_Click {) 
displayMode « •mini* 
Unload Me 
Main 
30 End Sub 

Sub PCbutton_Click () 

displayMode « "PC" 

Unload Me 
3$ Main 
End Sub 

Sub TVbucton_Click (> 
displayMode ■ 'TV- 
Unload Me 
40 Main 
End Sub 

' 5S8S " TV form code 

•This form pretends to show a TV program or record it. if it is not currently on 
Option Explicit 
Const GA? = 7 0 0 



Sub Form_Activate U 
Dim msg As String 
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Dim DB As database 
Dim Programs As tabl 
Dim star-Time 
Dim refSnap As snapshot 
Dim refDate 

Dim startTS. f mishTS « nowTS 
Set DB = OpenDatabase (TVDSJ 

Set refSnap * DB . CreateSnapshot I -Reference ") 
refSnap . FindFirst "Name = 'Date'' 
refDate = DateValue < ref Snap( "Data" ) ) 
Set Programs = DB . OpenTable (" Programs " > 
Programs. Index = " ID" 

Frograms.Seek " = ". userStation. userStart 

'note: ought to check that userStation is valid 

If Programs .NoMatch Then 

•simulate showing whatever is currently on userStation 

nowTS = DateDiff ("n", refDate. fakeToday ♦ fakeTime) \ 30 

Set refSnap = Programs .CreateSnapshot ( ) 

ref Snap. FindFirst "Station = " t Str (userStation) 

ref Snap. FindNext "FinishTS > - fc Str(nowTS) 

msg » "You are watching " 

msg = msg & Chr(13) 4 Format ( ref Snap I "Title" ) ) 

msg = msg fc ■ on " StationString ( ref Snap ( "Station" ) ) 

msg = msg k Chr(13) & Format (ref Snap I "Start" ) . -h:mm AM/PM") 

msg = msg & " to " L Format (refSnap < 'Finish- ) . "htmm AM/PM") 

Else 

' 'decide if the program is on. record if it's not 

startTS - DateDiff <"n". refDate. Programs ( "Start ") ) \ 30 
fimshTS « DateDi f f ( "n" . refDate. Programs ( "Finish" ) ) \ 30 
nowTS = DateDiff <"n". refDate. fakeToday - fakeTime) \ 30 
•nowTS would be calculated to work in real time 
If startTS <= nowTS And finishTS >» nowTS Then 
msg = "You are watching " 

Else 

msg = "The VCR is set to record " 
End If 

msg * msg & Chr(13) & Format < Programs < "Title" > ) 
msg - msg & " on ■ & StationString < Programs ( "Station" ) ) 
msg = msg & Chr(13) & Format ( Programs <" Start ") . "h:mm AM/PM") 
msg = msg U " to • & Format ( Programs f Finish" ) . "h:mm AM/PM") 
End If 

textArea .Caption » msg 
d Sub 

b Form_KeyDown (KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case 3_BACK 

returnCode « LASTVIZW 

•note: this is not appropriate if we came from menu (rolodex) 
Me .Hide 
Case S_0 

returnCode = SHORTCUT 
Me. Hide 
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Case Asc< "Q" ) 

End 
Case Els 

recurnCode = BACK 

Me. Hid 
End Select 
End Sub 

Sub Form_Load () 

textArea .Caption = 

text Area . FontSize = largeFON? 

SizeAFcrm Me, 0, ScrHeight, 0. ScrWidch 
End J^ #AConero1 tex:Area ' GAP. ScrHeight - 2 * GAP, GAP, ScrWidth - 2 • GAP 

TV^GUIDE form code 
•General remarks: 

■•l^SL^iH Pr ° Ce ^ Ur ! starts £he rolling by showing the Frame, loading 

■to fl™ 5 K An f Rowing the rolodex menu. Control is tranferred from form 

■alo^rHl T gh th * ° £ th * " tVi « C *« variable (see list of return codes in 

■h }£ i-n}r a Tn^- J™^' €XAmPie ' S — thC "—Code to SHOWVIEW? and 

returncode "* * C ° active ' frmFrame looks at the 

tSrougS° WS CUrrenC d0main ' s view £o ™' Communication between forms is done 

•a variety of variables, since a form's procedures are not accessible from outside. 
Option Explicit 

Global Declarations 



'database constants 

Global Const CARDFILE « "c:\pctv\db\cards2.txt- 
Global Const MVDB = "c:\pctv\db\plots.mdb- 
Global Const SPDB - 'c:\pctv\cUD\shopping.mdb- 
Global Const TVDB « •c:\pctv\db\big.mdb" 
Global Const TVTitXes = -c:\pctv\db\titles.mdb- 
Const CATDB » -c:\pctv\db\cats.mdb' 

typeTable As table 'TV type IDs 
Di* catTable As table • TV category IDs 
Dim statTable As table 'station IDs 
Global fakeToday 'keep the day constant 
Global fakeTime 'keep the time constant 

anfjraphJclr 10 ** f ° r " PC " ° r iaffects si « •« ««« 

Global newUser As Integer -boolean -when -rue. give extra helps 

Global ScrWidth. ScrHeight 

"side z^l** 1 **"" 9 '™- Dis P Lefc - ~1«idth "display area available to fox- 
•Colors 

Global Const highli ghtCOLOR * &K6C80FF '.ecish 
Global Const backgroundCOLOR = fcHSOFFFF 'yellow 
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Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 



Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Color 



iteraCOLOR ■ 
forraCOLOR - 
whiteCOLOR « 
greyCOLOR = 
blackCOLOR 
slotCOLOR « 
borderCOLOR 
divideCOLCR 
110) array 



ItHFFFFCO 
&HFF0000 
. &H8000000S 
&HC0C0C0 
* fcHOfc 
fcH80000005 
- &HFF& 
« fcHFFFFi 



'light blue 
•dark blue 
•white 
grey 
•black 
'white 
•red 
•white 



filled in Main 



• font sizes 

Global Const smallFONT =13.8 
Global Const mediumFONT =18 
Global Const large? ONT » 24 



•domain constants 
Global Ccnst MOVIE * 0 
Global Const TV ■ 1 
Globai Const SHO? * 2 



•array of list forms 
Global listFrm(3> As Form 
Global TVlist As New frmList 
Global MOVlist As New frmList 
Glooal SHOPlist As New frmList 



Inter-Form Communication 



Global currDomain As Integer 'the current domain 

Global filtersO) As String 'array of query strings for current domain filter 
Global currFilter (3) As String 'text, name of filter . . e . . h 

Global currView(3> As String -text name of current view (use mainly for lists which 

Global views O^As Form, 'array of current domain views (TV coming or TV schedule. 

for instance) , . , 4 .re 

Global viewFilter As String 'the database filter needed to obtain the appropriate 

v i ew 

•note: used only for movies at this time, would probably be expanded to array 
Global userString As String 'string chosen by user 
Global userMsg 'message string to display to user 
Global userStation 'a station selected by user 
Global userStart 'a time chosen by user 

Global sameFilter As Integer 'boolean 'true if need to refilter data 
Global sameView As Integer 'boolean 'true if need to redo display 

'return codes determine which action to take on re-activate of frmFrame or frmDex 

Global returnCode As Integer 

Global Const BACK » 0 

Global Const TOTV « 1 

Global Cor.st LAST/I EW = 2 

Global Const SHORTCUT * 3 

Global Const DONE = 4 
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Global Const FILTER ■ 5 
Global Const COMING « 6 
Global Const SHOWVIEW = 9 
Clobal Const ALPHA » 10 
Global Const PICK = 11 
Global Const STARTUP = 12 



Define Type Card 
for ro.lodex 



is 



20 



25 



Global Const MAX ITEM = 9 'max number of buttons on a card 

Represents one index card as viewed on screen 
Type Card 

self As Integer 'iter, number of self on parent 
level As Integer 'number of cards away from root 
name As String 'text to appear on button/card 
infotext As String 'text for info bar 

actionCcde As Integer 'code for action to take when chosen 
actionData As String 'extra info needed for action 
parent As Integer 'number of parent card 

NItems As Integer 'number of buttons visible on card 

I tern (MAX ITEM) As Integer 'array of card pointers (one for each button on care) 
selected As Integer 'the number of the selected button 
End Type 

•Array of up to MAXCARDS index cards 
Global Const MAXCARDS « 1000 
Global Cards (MAXCARDS) As Card 
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Remote Buttons 



'assigned values : 
Global B_BACK 
Global B_HELP 
Global B_PREVIEW 
Global B_UP 
Global B_DOWN 
Global B.LEFT 
Global B_RIGHT 
Global B_S ELECT 
Global B_PAGEUP 
Global B_ PAGEDOWN 
Global 3,1 
Global B_2 
Global B_3 
Global B_4 
Global B_5 
Global B_6 
Global 5_7 
Global B_8 
Global B_9 



n sub SetKeys 
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Global B_C 
Global B_r ILTER 



10 
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COLORS 



Global Const RED « fcHFFfc 
Global Const ORANGE = &H80FF& 
Global Ccnsc YELLOW = &HFFFF& 
Global Const GREEK * 4H30FF60 
Global Const TURQUOISE = fcHFFFFC C 
Global Const BLUE » fcHFFOOOG' 
Global Const VIOLET = &HFFOCFF 
Global Const WHITE = fcHFFFFFF 
Global Const 3 LACK = &H0& 
Global Const GREY = iHCOCCCC 
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CONSTANTS FROM VISUAL BASIC FILES 



From CONSTANT . TXT 
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• Key Codes 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 

Global Const KEY. 
Global Const KEY. 

Global Const KEY. 



.LBUTTON = *H1 
.RBUTTON = fcH2 
.CANCEL « &H3 
.MBUTTON « &H4 
.BACK « &HB 
.TAB = &H9 
.CLEAR = &HC 
.RETURN = UKD 
.SHIFT = fcHlO 
.CONTROL = iHll 
.MENU = &H12 
.PAUSE ■ tHl3 
.CAPITAL « &H14 
.ESCAPE » &H1B 
.SPACE = 4H20 
.PRIOR * tH21 
.NEXT = &H22 
.END = &H23 
.HOME » &H24 
.LEFT « &H2 5 
.UP ■ &H2 6 
.RIGHT = &H27 
.DOWN = &K2 8 
.SELECT = iH29 
.PRINT « tH2A 
.EXECUTE = &H2B 
.SNAPSHOT = &H2C 
.INSERT = tH2D 
.DELETE = &H2E 
.HELP « &H2F 



NOT contiguous with L & RBUTTON 
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KEY_A thru KEY_Z are the sam as th ir ASCII equivalents: ' A ' thru 
KEY_C thru KEY — 9 are the same as their ASCII equivalents: '0* thru 
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30 



Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 



Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 



KEY 
KEY 
KEY 
KEY, 
KEY 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY, 
KEY, 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY, 
KEY. 
KEY. 
KEY. 
KEY, 
KEY. 
KEY 



.NUMPADO » &H60 
.NUMPAD1 « &H61 
.NUMPAD2 
.NUMPAD3 
.NUMPAD4 
.NUMPAD5 « &H65 
.NUMPAD6 « *H66 
.NUMPAD7 u 
.NUMPAD8 « 
„NUMPAD9 « 
.MULTIPLY ■ 



&H62 
&H63 



&H67 
&H68 
fcH69 
4H6A 



.ADD « &H6B 
.SEPARATOR = &H6C 
.SUBTRACT = 4H6D 
.DECIMAL = &K6E 
.DIVIDE = *K6F 
.Fl « &H70 
,F2 ■ &H71 
.F3 - &H72 
.F4 = &H7 3 
.F5 = tH7 4 
.F6 « fcH75 
.F7 * &H76 
.F8 - *H77 
.F9 « SiH7 8 
.F10 - &H79 
.Fll = &H7A 
.F12 « &H7B 
.F13 * &H7C 
.F14 - &H7D 
.F15 = &H7E 
_F16 - &H7F 
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Global Const KEY_NUMLOCK « tH90 



Function CategoryString (typeCode As Integer, catCode As Integer » As String 
creates user-reabable string for a TV program's category 
40 Dim rr.sg As String 

r.sg « "Category: ■ 
• look up type code 
typeTable . Index = •ID" 
4S typeTable . Seek " = *. typeCode 

If typeTable .NoMatch Then 
r.sg * msg & typeCode 

Else 

rr.sg * msg & typeTable { "Name" ) 
End If 

SO msg - msg k * . " 'all on one line, replaced: Chr(13> & "Subcategory: " 



ss 
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* look up category code 
catTable . Index « "ID" 
catTable . Seek "«". catCode 
s If cacTabl .NoMatch Then 

msg = msg It cat Cod 

Else 

msg - msg & catTable ( "Name* ) 
End If 

CategoryString « msg 
10 -r.d ?unct;on 

Sub CCcpy (Cfrom As Control. Cto As Control) 
'copies attributes of CFrom control to CTo 

Cto. Caption = Cfrom. Caption 
1S Cto.BackColor = Cfrom. BackCoior 

Cto. Top * Cfrom. Top 

Cto. Height ■ Cfrom. Height 

Cto. Left » Cfrom. Left 

Cto. Width * Cfrom. Width 

Cto.FontSize = Cfrom . FontSize 
20 End Sub 
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Sub Center I tern (Item As Control , x, y) 
'centers a control around a point 
Item. Left « x - Item. Width / 2 
Item. Top 3 y - Item. Height / 2 
End Sub 



Sub CPlace (extra. Cfrom As Control. Cto As Control) 

'place Cfrom in the same place as Cto, with difference extra 

Cfrom. Top « Cto. Top - extra 
30 Cfrom. Left « Cto. Left - extra 

Cfrom. Height • Cto. Height ♦ 2 * extra 

Cfrom. Width « Cto. Width ♦ 2 # extra 
End Sub 



Function DayString (d. length As String) As String 
•returns string for appropriate day of week based on date given 
' and length specified 

Select Case Weekday (d) 
Case 1 

If length * "long" Then 
40 DayString = "Sunday" 

Else 

DayString = "Sun" 
End If 
Case 2 

If length = "long" Then 
DayString » .^Monday" 
Else 

DayString = "Mon" 
End If 
Case 3 

50 If length = "long" Then 
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DayString = "Tuesday* 

Else 

DayString = "Tue" 
5 End If 

Case 4 

If length * "long- Then 

DayString « "Wednesday" 

Else 

DayString * "Wed" 
10 End If \ 

Case 5 

If length = "long* Then 

DayString ■ "Thursday" 

Else 

DayString ■ "Thur" 
End If 
Case 6 

If length = "long" Then 

DayString « "Friday- 
Else 

20 DayString * "Fri" 

End If 
Case 7 

If length = "long" Then 

DayString » "Saturday" 

Else 

DayString - "Sat" 
End If 
End Select 
End Function 

30 Function f ixAmpersand (text As String) 

•put in a m kk m for every "&" so ampersand will print instead of forrr^t an underline 
Dim i As Integer 
Dim oldText As String 
Dim newText As String 
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newText = 

oldText = text 

While InStr (oldText , VI 

i » InStr (oldText. •&") 

newText * Left (oldText , i - 1) & 



•tat 



40 oldText ■ Right (oldText, Len(cldText) - iJ 

Wend 

f ixAmpersar.d = newText & oldText 
End Function 



Sub InvokeHeip ( ) 

•add parameter fcr current locaticn or give each fcrr. a local InvokeHelp 
•would be specialized for each view, probably not each button 

TellUser "Press Help (?) again for general help, or press any button on the 
remote for help with that button." 
Select Case returnCode 
SO Case 3_KELF 
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TellUser -General Kelp:" 
Case 3_PREVIEW 

TellUs r 'Use the Preview button to see a video preview or th highlighted 
s selection . " 

Case 3_BACX 

TellUser "Use the Back button to back up to the previous screen. " 
Case KEY_ESCA?E 

TellUser "Use the Shortcut key tc get to the shortcut buttons." 
Case B_S ELECT 

10 TellUser "Use the select button to choose a highlighted option. " 

Case Else 

TellUser "This help screen is not written yet . " 
End Select 

End Sub 

15 

Sub Mam i ) 

Dir. i As Integer 
Din DB As database 
Set DB = OpenDa t abase ( CATDB ) 
Set typeTable = DB.OpenTable ( "Type" ) 
20 Set catTable « DB.OpenTable ( "Category" ) 

Set DB * OpenDat abase (TVDB ) 
Set statTable « DB . OpenTable ( " Stations " ) 
Set Keys displayMode 
'set different list forms 
Set listFrm(TV) = TVlist 
Set liscFrtn<MOVIE) » MOVlist 
Set listFrm(SHOP) = SHOPlist 
•set color array 

Color (0) » &HBFBFC0 'teal green 
Color (1) = &HFFFF80 'light blue 
30 Color (2) = &HFFC0FF 'light pink 

Color (3) = &HFF8CFF 'dark pink 
Color (4) = &HS0C0FF 'medium orange 
Color (5) = &HC0FFCD 'lightest green 
Color (6) « &KFF8080 'royal blue 
Color (8) « &HFFC0C0 ' lavendar 
Color (7) m &HC0C0& f ochre 
'set date and time 
fakeToday = CVDate { ■ 6 / 12 / 94 " ) 
fakeTirne = CVDate("6:30 PM" ) 

40 new'Jser = True 

'start up the forms 
f rrr.Frame .Show 
DcEvents 

'load all forms here 
Lead f nrJDex 
Lead frmAlpha 
Load frmTV 
Load frmMsg 
Movie fonts 
SO curr Domain = MOVIE 
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viewFilter « "Year >« 1993" 
currView(MOV:E} = "Recent Movies' 
currFilter (MOVIE) = ": All Categories- 
5 S tstatus -Movies". greyCOLOR 

Load listFrm(MOVIE) 
' Shopping forms 
curr Domain * SHOP 
filters (SKOF- ■ 

SetStatus "Shopping, compact disks". greyCOLOR 
10 Load listFrm(SHOP) 

'TV forms 

currFil ter {TV} * "Basketball" 
currDomam = TV 
filters(TV) * "Category « 39" 
;s userString » "Nova" 

'Load frmWeek 
•Load listFrr.(TV) 
•Load frmComing 
•Load frmWkday 
'Load frmSelect 

20 

•show main menu 

SetStatus "Use arrows and select or use keypad.", greyCOLOR 
f rmDex . Show 
End Sub 

25 

Function Overlap (beginTS, endTS) As String 

'create query string to look for TV programs in the range between 
• and including beginTS and endTS 

Overlap * "(StartTS <« " & Str(endTS) & " And FimshTS >= " & StribeginTS) & ")" 
End Function 

30 

Sub Set Info (text As String, Color) 
•update the info box text and color 
Dim s As SSPanel 

Set s « f rniFrame ! ssplnf o 'works as long as form is loaded 
OS s.BackCoior » Color 

s. Caption = text 
End Sub 

Sub SetKeys {mode As String) 

•Set the keymappings for keyboard or "remote" 
40 B_l = KEY_NUMPAD7 

B_2 = KEV_MJMPAD8 

B_3 = KEY_NUMPA39 

B_4 - KEY_NUMPAD4 

B_5 » KEY_NUMPA05 
45 3_6 « KEY_NUMPAD6 

3_7 - KEY_NUMPAD1 

9_8 = KEY.NUMPAD2 

3_9 « KEY_rrJ^PAD3 

If mode = "TV" Then 

•use keypad for all buttons (except l-9> 
50 B_3ACK « K E Y_ SUBTRACT 
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e_HELP - 13 *I don't know what the name of this key is 

9 — PREVIEW * KEY_ADD 

e_UP ■ Asc< m B m ) 

B_DOWN = Asc ( "2-) 

B_LEFT * Asc ( * 4 * ) 

B_RIGHT = AscC6') 

E_ SELECT = Asc ("5-) 

3_PAGEU? = KEY.DIVIDE 

B_ PAGEDOWN = AscCO'i 

3_0 = KEY_MULTIPLY 

3_ FILTER » KEY.RETURK 

Else 

3_3ACK = KEY_F1 
3_HEL? a KEY_F3 
B_?R£VIEW « KEY_F2 
B_U? » KEY_UP 
B_DOWN = KEY_DOWN 
B_LEFT » KEY_LEFT 
B — RIGHT « KEY_RIGHT 
B_SELECT « KEY_RETURN 
B_PAGEUP = KEY_PRIOR 
B — PAGEDOWN « KEY_NZXT 
B_0 = KEY_NUMPADO 
B_FILTER = KEY_F4 
End If 
End Sub 

Sub SetStatus (text As String, Color) 
•update the status bar with new message 
Dim s As SSPanel 

Set s = f mFrame ! sspStatus '(works as long as form is loaded) 
s.BackColor = Color 
s. Caption = text 
End Sub 

Sub SizeAControl (Item As Control, c. H, 1, w> 
'set the size attributes of a control 

Item. Top = t 

Item. Left = 1 

Item. Height = H 

Item. Width = w 
End Sub 

Sub SizeAForm !frm As Form, t. H, 1, w) 
'set the size attributes of a form 

frrr..Top = t 

fra.Left = 1 

frm. Height * h 

frm. Width » w 
End Sub 

Fur.cticr. StationString (s) As String 

'looks up station number and returns station name as string 
statTable . Index = "ID" 
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scacTable.Se k s 

If scacTable . NoMatch Then 

MsgBox "illegal station ID " & s 

5 St °P 
End If 

ScationStrmg » statTable ( "Name" ) 
End Function 

Sub TeiiUser ir.essage As String) 
10 'displays message on screen until key is pressed 

•probably would not be used 

userMsg » message 

Wait frmMsg 
End Sub 

is 

Function TimeLabel <t) As String 
•returns null string for times on half hour. 
• returns hour 1..12 otherwise 
Dim s As String 
s « Formatlt, "hh:mm AM/PM" ) 
20 if Mid(s, 4, 2) « "30" Then 

TimeLabel • ■ • 

Else 

s » Format(s, "h AM/PM") 
•strip off AM/PM 
2$ TimeLabel = Leftts, Len(s) - 3) 

End If 
End Function 

Function TimeString (aDate) As String 

•format a date as 12-hour time without AM/PM or leading zero 
3° Dix theTime As String 

theTime = Format (aDate. • tinman AM/PM" ) 
theTime » Left ( theTime . 5) * take just "hhimm" part 
If Left(theTime, 1) - "0" Then 
theTime - Right (theTime . 4) 

35 End If 

TimeString * theTime 

End Function 

Sub Wait (F As Form) 

•Allows one form to wait for another to hide itself 
40 F . Show 

While (F. Visible) 
OcEvencs 

Wend 
End Sub 

•sss»as WEEK form code ====== 

Option Explicit 

•stacked channel* view to be used with TV search and 

• possibly other minimal searches (would need modification in ApplyFi.ter- 
SO Di m allOata{9) As snapshot 'all data within time period 
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Dim f ilterData (8 ) As snapshot a snapshot for each day in the view 

Dim NDays As In teg r ' number of days in display 

Dm NSlots As Int ger 'number of time slots in display 

Dim NProgs As Integer 'number of programs in display 

D im colorField As String 'the database field that deternvin s item 

• (the field should contain an integer) 
Dim inPreview As Integer 'boolean *if true, preview should show 
Dim refDate reference date fcr data time slots 
Dim slotsPerDay As Integer 'number of slots allowed per day 
Dim currDay number of current day 
Dim dayWidth As Integer 'width of day labels 
Dim lblHeight As Integer 'height of day labels 
Dim infoHeight As Integer 'height of specialized info panel 
Dim timeHeight 'height of time labels 
Dim startTime 'beginning time for view 
Dim TSBegin As Long 'first time slot of current day 
Dim TSEnd As Long 'last time slot of current day 
Dim TScurrent As Long 'time sloe of current program 

Sub ApplyFilter () 

' filter for a particular show by title in userString 
Dim i As Integer 'counter 

'create snapshot for each day 

For i = 1 To NDays 

ailDataii) . Filter = "Title = - ■ - & userString & 
Sec f ilterData< i) * allData (i ) . CreateSnapshot ( ) 
filterData(i) .Sort » "StartTS" 

Set filterDataii) * f ilterData ( i ). CreateSnapshot < ) 
Next i 
End Sub 

Sub ChangeSel (d As String) 
•perform view navigation 

Dim current 'as database marker 

Dim success As Integer 'boolean 

Dim s As Integer 'station number 

Dim best 

Dim TS As Long 'time slot 
Dim F As snapshot 
Dim aDay As Integer 
Dim marker ' as bookmark 
Dim arrows As String 

'save values, initialize values 

current = fi IterData < currDay ). Bookmark. 

Set F = f ilterData (currDay) 

s = F [ •Station" ) 

TS = TScurrent 

abay « currDay 

success » False 

Select Case d 
Case "Right" 
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•move to later time, same day 
F.FmdWext -StartTS > • & str(TS) 
success « Not F.NoMatch 
If success Then 

'check if info arr ws needed 
TS * F ( •StartTS" ) 
F . MoveNext 
If Not F . EOF Then 

Xf F( -StartTS- j « TS Then 

infoArrows "down" 
Else 

i-foArrows "none" 
End if 

Else 

15 infoArrows "none" 

End If 

F .MovePrevious 
End If 
Case -Left" 

2 o r *f? V V° earl i« time, same day 

F - '^Previous -StartTS < • & str<TS> 
success . Not F.NoMatch 
If success Then 

TS = F{ "StartTS") 
'SO to top of column 

25 T S F i n fMV ' StarCTS ' ■ * Str«TSi 

ts » F( -StartTS*) 

•check if ir.fo arrows needed 
F. MoveNext 
If Not F . EOF Then 
30 If Fi StartTS-) * TS Then 

infoArrows "down" 

Else 

infoArrows "none" 
End If 

Else 

35 infoArrows -none" 

End If 

F. MovePrevious 
End If 

Case -Down" 



iT^^VT^' ^JL^J^ f lose « P—ious tine sice 
a=ay . aDay * l:TS, TS t iB ° "° thln9 a11 ^Pshecs er.pcy 
While Not success And aDay < = NDays 

Set F » filterDataiaDay) 

F.FindFxrst -StartTS > " t Str(TS) 
WS « ' .NoMatch Then 



c„ Ts " F{ -StartTS- i 

50 End If 



ss 



If Not F . EOF Then 
success e True 
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se . . . . «' 3 r S away, check left 

'save program to right, cc-nt -.me s^ocs * y 

marker * -.Bookmark 
best « F< -StartTS- ) - TS _ 
F.?indLast -StartTS <» " & atrl -' 
If F.NoMatch Then . . r 

•no prog to left, take program to ..gnt 
F.3ookmark = marker 
TS = TS • best 

' ElSe - check distances from previous time slot 
If TS - F( "StartTS" ) > best Then 
•right prog closest 
F. Bookmark » rrarker 
TS s TS - best 

15 Else 

• left prog closest 
TS = FfStartTS") 
End If 
End If 

•either way. we found a program 
success = True 
End If 

aDay - aDay * 1: TS - TS ♦ 46 

Wend 

aDay * aDay - 1 : TS = TS - **8 

25 If success Then 

•make sure to be at the top of a column 

F.FindFirst -StartTS « - * *tr«TS) program in if 

If F . NoMacch Then Stop "how did we get a 
TS = Fi "StartTS") 
•check if info arrows needed 
F . McveNext 
If Not F.ECF Then 

If F{ "StartTS") » TS Then 
infoArrows "dowr." 

Else 

35 infoArrows -none" 

End If 

Else 

infoArrows "none" 
End If 

F . MovePrevious 
End If 
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40 



Case 



a Pay = a2ay - 1; TS * TS - 48 

45 while Net success And aDay > 0 

Set F « f ilterData(aDay) 

F.FindFirst -StartTS > ' * Str(TS) 

If F . NoMacch Then 

•no prog to right, lock left 

-c njo- F . EOF Then F.McveLast 
SO -* * 
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If Not r.SOF Then 

success = True 

TS * F ( " St art TS " ) 
End If 

E1Se . saV € program to right, count time slots away. look left 
marker ■ F . Bookmark 
best » F ! "StarrTS* ) - TS 
F.FindLast -StartTS <= * 5. Str(TS) 
Zt F.NcKatch Then 

•nc prog to left, take program to right 

F. Bookmark « marker 

TS * TS * best 

Else 

•check distances 

If TS - F( -StartTS" ) > best Then 
•right prog closest 
F. Bookmark = marker 
TS = TS * best 

Else 

• left prog closest 
TS « F( -StartTS - ) 
End If 
End If 

•either way, we found a program 
success * True 
End If 

aDay * aDay - 1 : TS 8 TS - 48 

Wend 

aDay = aDay ♦ 1: TS * TS ♦ 4 8 
If success Then 

•make sure to be at the top of a column 

F FindFirst -StartTS = " & StnTS) 

If F.NoMatch Then Stop 'how did we get a TS with no program 
TS « F { -StartTS* ) 

check if info arrows needed 
F . McveNext 
If Not F . EOF Then 

If F( -StartTS') * TS Then 
infcArrows "down" 

Else 

infoArrcws 'none" 
End If 

Else 

infoArrows Tone" 
End If. 

F . Move Previous 



ase 'Next ~ 

•find next program, same time and day 

F.MoveNext 

If Not F . EOF Then 

•success means still in same time slot 
success - F! "StartTS") « TS 



73 



EP 0 735 749 A2 



End If 
• s c arrows 
If success Then 
F.MoveNext 
5 arrows « "up " 

If Not F. EOF Then 

If F < "StartTS" ) « TS Then arrows = "both" 

End If 

F.MovePrevicus 
10 infoArrows arrows 

End If \ 
Case "Prior" 

•find previous prograr.. same time ar.d day 
F .MovePrevious 
If Not F.BOF Then 
is 'success means still in same time slot 

success = F ( "StartTS- ) « TS 
End If 
• set arrows 
If success Then 
20 F. Move Previous 

arrows = "down" 
If Not F.BOF Then 

If F< "StartTS") * TS Then arrows = "both" 

End If 
F . MoveNext 
25 infoArrows arrows 

End If 
Case "none" 

•stay at current program, update the arrows (used at startup* 
If Not F . EOF Then 
30 F . MoveNext 

arrows = "none" 
If Not F . EOF Then 

If F< "StartTS") * TS Then arrows - "down" 
End If 

F . MovePrevious 
35 infoArrows arrows 

End If 
End Select 

If success Then 
40 'update 

TScurrent « F ( "StartTS" ) 
currDay * aDay 
DispiayProg 

Else 

•restore database position 
^5 fi icerData (currDay ). Bookmark. * current 

End If 

•set begin and end time slots for current day 

TSBegm « DateDi f f ( "n" . ref Date. (startTime - currDay - I ■ • ■ -° 
TSEnd « T53egin * slotsPerDay - 1 

SO 



End Sub 
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Sub DispiayProg ( } 

* se: info box with current program info and highlight position 
Dim T As snapshot 
Dim msg As String 



Set F « f ilterData (currOay) 

rr.sg s 5tationStrir.g(F("Station") > & " « Format { F ( "Start •) , " h : mr. AM ••' ?M " I 
msg = msg & * to " & Format { r I" Finish - : . "h:mm AM/PM. - ) 
10 .T.sg = msg * Format ( F ( "Title " ) ) 

rr.sg = msg * Chr (13) & "(episode info here)" 'k Format ( F ( "Episode * : ; 
'note: current database does not contain episode information 
Setlnfo msg. Color ( F ( colorField) Mod 9) 



shpProg i 0 >. Visible « False 
,5 selector .Visible » False 

Position shp?rog(0>, F ( "StarcTS" ) . F ( " FinishTS " ) 

CPlace D. selector. shpProg (0) 

shpProg (0) .Visible » True 

selector . Visible * True 
20 End Sub 

Sub Do Preview ( ) 

•Construct an appropriate preview message and display 
Dim msg As String 

25 msg = f ilterData (currDay} ("Title") 

msg = msg i Chr (13) & "on " & Stations tring J f ilterData < currDay) ( "Station" ) ) & 

Chr ; 13} 

msg = msg & CategoryString ( ( f ilterData ( currDay ) ("Type" ) ) , 
' f ilterDaca (currDay) ( "Category" ) ) ) 

30 ^sg = msg & Chr<13) fc Days tring (Weekday ( fi IterOata (currDay )(" Start ")) . "long") 

msg = msg i " , " i Format ( f ilterData < currDay ) [ " Start " ) . "mmm d. yy h : mm AM/PM" » 

msg - msg & Chr (13) & " to • & Format ( f ilterData t currDay) ( "Finish" ) , "h:mm 

AM/PM" ) 



popup . Caption « msg 

35 SizeAContrci popup. ( lblTime ( 1 ) . top * 1.5 • lblTime { 1 ). Height ) . 12. 

(lblDayd » .WidthJ , 45 

popup . Visible » True 

inPreview = True 
End Sub 

40 

Sub DoSelect ( ) 

'set data for selection and go to TV 

userStation = f ilterData ( currDay >;• Stat ion" ) 
userS:ar: = f ilterData ( currDay >( "Stare - ) 
returr.Code = TOTV 
45 Me. Hide 

End Sub 



Sub DrawProg < duplicates As Integer, index As Integer i 

'draw a program shape in display, marking it if there are duplicates at the 
50 icer.nral time slot 
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30 



' shpProg (0) should be at Che desired location 
Dim above, below, side, wide 
Const GA? = .3 

abov * shpProg ( 0 ) . top 
below s shpProg 10 ). Height 
side = shpProg (0 ). Left 
wide « shpProg {0 ) .Width 

"oreCoior = biackCOLOR 'line ccl=r. thin black outline 
FillStyle * 0 'solid 
drawwidth = 1 



Select Case duplicates 
Case 0 

•draw the prograr. in the given color 
IS fillColor » Color (index) 

Line (side, above) -iside * wide, above ♦ below - .5 • GAP*. . B 
Case 1 

•draw the prograr. in grey and mark it 

fiilColor = greyCOLOR 'indicate duplicates (which may be of different 

20 colors) 

r,i ne (side. above)-iside * wide, above * below - .5 # GAP). . E 
•draw icon 
above » above * GAP 
side * side * GAP 
wide = 2 • GAP 
25 drawwidth = 2 

Line (side, above) -(side ♦ wide, above ♦ wide) 
Line (side, above - wide) -(side * wide, above) 

Line (side, above * .5 * wide) -(side ♦ wide, above ♦ . S * wide) 
Line (side - .5 • wide, above) -(side ♦ .5 • wide, above * wide) 
Case Else 

•no need to redraw duplicate marks 
End Select 



End Sub 

35 Sub Form_Activate () 

Dim i As Integer 'counter 
Static saveFilter As String 



40 



If saveFilter = userString Then sameFilter = True 
saveFilter = userString 

SetStatus "This Week: ■ i userString. greyCOLOR 



•if not same form, erase and redraw the week schedule 
If Not sameFilter Then 
Me.Cls 

45 Setlnfo "Loading program inf ormat icn . . . " . GREY 

shpProg (0) .Visible = False 
selector .Visible » False 
inf ©Arrows "none" 
Dc Events 

SO 
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ApplyFilter 
Ma<e3i splay 
same-liter = True 
End If 

SuD 



Fonr._KeyDown IKeyCode As Integer. Shift As Integer) 
Dirr index As Integer 
Din n As Integer 
Select Case KeyCode 
Case Asc < " Q" ) 

End 
Case 3_3ACX 

returnCode » 3ACK 

Ke.Hide 
Case 3_HELP 

same? liter = True 

InvoiceHelp 
Case 3_?REVZSW 

If mPreview Then 

inPreview ■ False 
popup . Visible « False 

Else 

inPreview * True 

End If 
Case B_RIGHT 

ChangeSel (-Right") 
Case B_LEFT 

ChangeSel ( "Lef t" ) 
Case B_U? 

ChangeSel ("Up") 
Case 3_DOWN 

ChangeSel ("Down") 
Case B.SELECT 

If Not f ilterData (currDay ) . EOF Then Deselect 
Case B_ PAGEDOWN 

ChangeSel ( "Next ■ ) 
Case 3_PAGEUP 

ChangeSei ("Prior") 
Case B_F ILTER 

•go back to frmSelect to choose a new title 

returnCode ■ PICK 

Me. Hide 
Case 3_0 

returnCode * SHORTCUT 

He. Hide 
End Select 
If inPreview Then 

DoPreview 

Else 

popup .Visible » False 
End If 
Sua 
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"orr._load ( ) 

2 in*, i As Integer 

• s t form colors and fonts 
Me.3ac<Color « formCOLOR 
shpProglO) .BacxColor = BorderColor 
IblDay « 0) . BacxColor « bacxgroundCOLOR 
selector . BorderColor - BorderCoIcr 
cayLme <0> . 3orderColor = divideCOLOR 
IblTime ( 0.) . roreColor = slocCOLOF. 
shpSlot (0) . 3orderColor « slotCOLDR 
:nf oPanel . FontSize « mediumFOMT 
If displayMode = "TV" Then 

lblDayO) .FontSize * smailFONT 

lblTime<0) .FontSize = smallFON? 

popup . FontSize « mediumFONT 

Else 

IblDayO) .FontSize » largeFONT 
lblTime<0> .FontSize = largeFONT 
popup . FontSize » largeFONT 
End If 

'cover up the standard info box 

SizeAForm Me, 0. DispTop - DispKeight. DispLeft. dispWidth 

set scale and size objects 
MZays = 7 
NSlots = 48 
dayWidth = 4 
IblHeight « 2 
cnfoHeight * 5 
If displayMode = "TV" Then 

upArrow.Left » 3950 

downAr row. Left * 8950 

timeHeight = 2 

downArrow. top * 550 

upArrow.top « 150 

Else 

timeHeight = 1.5 
downArrow. top « 1525 
End If 

Me. Scale (0. 0) -(NSlots ♦ dayWidth. OTays • IblHeight - 2 
foKeight > 

selector . BorderWidth • 1 
■place extended info panel 

SizeAControl infoPanel. 0, infoKeight, 0. < Me . ScaleWictr. > 
ir.f cPanel . Caption = 
ir.rcPanel . Visible = True 
•place day labels along side 

SizeAControl IblDay(O), IblHeight * ir.foHeight, IblHeight 
•cr : = 1 Tc NDays 
Load lblDaytil 

IbiDayl i J .Caption - DayScringti. •short") 
IblDay (i) .tcp « ti - 1) " IblHeight - infoKeight - 2 
lblDay( i ! .Visible = True 
Next i 
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•pu- AM?M label across top 

SizeAConr rol IblDay < C } . ir.f cHeig'r.t . timeHeight. dayWidth, NSlots 
IblDay(O) .Caption = " AM NOON PM" 

5 IblDay (0) .Visibl * True 

•put time labels across tcp 

Sir.eACor.trol IbiTimetC:. i IblDay I 0 ) . Height ) - infoHeight, timeHeight. 0. 2 
Tcr i ■ 1 To NSlocs \ 2 
Load IblTime ( i j 

IblTimei i J .Caption « TimeLabei i DateAdd » *h" . (i - 1). fakeTODAYJ ) 
10 IblTime ( i I . Left * 2 • i * 2 

IblTime i: > .Visible = True 
Next i 
NProgs = 0 
sameFilter = False 
JS InputData 

Form_Activate 
End Sub 
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Sub ir.foArrows : direct As String) 

•show or hide arrows in info box indicating presence of more programs at identical 
time 

Select Case direct 
Case "up* 

downAr r cw . Visible » False 
upAr row. Visible * True 
Case "down - 

upArrcw. Visible - False 
downAr row. Visible ■ True 
Case "both" 

upAr row. Visible * True 
downAr row. Visible » True 
30 Case "none" 

upAr row .Visible s False 
downAr row. Visible = False 
End Select 
End Sub 

35 

Sub InputData i ) 
•part of f orm_load 
opens the dacabase and creates allData snapshots 

Dir. D3 As database 
40 Dir. Re i Snap As snapshot 

Dim i As Integer 

Set D3 - CpenDa t abase (TVDB > 

get reference date and number of stations 
Set Re f Snap * DB . CreateSnapshot I " Reference " } 
Ref Snap . FindFirst "Name « ' Date ' ■ 
refCate = Date Value (RefSnap ( "Data " : ) 
P.efSnap. FindFirst "Name = 1 NStaticns * - 

SO Set allDataiO a D3 . CreateSnapshct *. - ?r:crar.s " ) 
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20 



25 



30 



35 



startTime * r fDate 
TSoegin = 0 

TSZr.d = TSBegin ♦ 4 8 - 1 
"or i « I To 7 

allDatalO) -Filter = Overlap i753egir. * 48 ■ ;i - 1). TSSr.c - 4c • 
Set allData(i) = al IDaca ( 0 > . CreateSr.apshoc { ) 
Next i 

3e: ailOataiC) » Nothing 'no longer need data ail together 
Er.c Sub 



Sue MakeDi splay ( ) 
:rea:e schedule display on screen 
2im i As Integer 'counter 
75 rim d As Integer * day 

2im TSlast As Integer 'last time slot affected 
3im F As snapshot 'convenience 

offset As Integer 'used twice: daylir.e offset & number of programs sharing a 
time slot 



'draw horizontal day lines 
drawwidth « 2 

ForeColor ■ lblDay ( 0 ) . BackColor 
offset * infoHeight + 2 * tirneHeight 
For i » 0 To NDays 

Line (0. offset ♦ i • IblHeight ) - ( 52 . offset * i • IblHeight* 
Next i 



'place program shapes 

offset = 0 'keep track of how full a particular time slot is 
colorField « "Category* 'note: should this be 'Type- instead? 
For d « 1 To NDays 
cur r Day « d 
TSlast = -1 
Set F = f iiterData (d) 
If Not F.SOF Then 
F.MoveFirst 
Do While Not F . EOF 

If F< "StartTS* ) « TSlast Then 
offset ■ offset * 1 
OrawProg offset. -1 

Else 

40 offset - C 

Position shpProg(O), F ( -StarcTS" ) . F " FinishTS" > 
OrawProg offset. F { colorField ) Mod 9 
TSlast = F( "StartTS- ) 
End If 

4S F . MoveNext 

Itop 

r . MoveFirst 
End Z f 
::ext d 

50 initialise stuff 
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2 = 1 

c-rr^ay = 1 
While d < = NDays 

If f ilterDaza <d> . EOF Then 
d « d ♦ 1 

Else 

NProgs * 1 "just to make sure it is r.ore than D 
currDay = d 
d ■ NDays * 1 
Er.d If 

Wenc 

s hp Prog O) . Z-Order 
selector . ZOrder 

If Not fi 1 terData ( currDay ) .EOF Then 

TScurren: » f ilterDaca ( currDay) t - StartTS" ) 

OisplayProg 

ChangeSei \none* 

Er.d Zf 



Sue Position (shape As Control, start, finish) 
•position a program shape 

Di.T leftTS 

Dim rightTS 

Const smallGA? a .1 



convert to time sloe scale 
leftTS = start - 46 • {currDay - 1) 
rightTS * finish - 4 8 ■ (currDay - 1) 
'set left and width 
s-ape Left « dayWidth - leftTS 

shape. Width » rightTS - leftTS «- 1 - smallGAP 

cut off at beginning of day 
If shape. Left < dayWidth Then 

shape. Width =■ shape. Width - (dayWidth - shape. Left) 

shape. Left = dayWidth 
End If 

• set top and height 

shape. Height « 2 - 2 • smallGAP 

shape. top « iblDay ( currDay ). top ♦ smallGAP 

Er.d Sub 

Sue- Setlnfo imsg As String. Color) 
ever rice the global Setlnfc to write to my own info panel 
ir.fo Panel . 3ac>Color » Color 
ir.f oPanel . Capt ion » msg 

Er.d Sub 

' = = = = = = WEDAY form code = = = 

Option Explicit 

'schedule tf 5 weekdays at a particular time 
uses time -slot guided navigation 

Tim allDataie- As snapshot "all data within time period 
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Dim f ilterData ( 3 ) As snapshot 'a snapshot for each day in the view 

Dim NDays As Integer 'numb r of days in display 

Dim N'Sloes As Integer 'number of time slots in display 

5 Dim N'Progs As Integer 'number of programs in display 

Din NStation As Integ r 'number of stations in display 
Dir. MaxStation As Integer 'total number of stations in database 
Dir. colorField As String 'the database field that determines item color 

•{the field should contain an integer! 
D^.t. m Preview As Integer •' boolean 'true if preview should shew 

10 Const sideGap = .05 'space at beginning and end cf program 

Ccr.s: topGAP = 4 'space btwn time label and first program shape 
Dim reflate 'reference date for data time slots 

Const IblHEIGHT » 40 'height of day and time labels (in SZZ scale) 

Const MINProgWidth « .2 'minimum width of a program shape as fraction of si'. 
, 5 Dir. slctsPerDay As Integer 'number of slots allowed per day 

Dir. :urr2ay As Integer 'number of current day 

Dir. startTime 'start day and time of display 
Dir. TSBegin As Z*ong 'first time slot 
Dir. TS End As long 'last time slot 
20 Dir. TScurrent As Long 'current time slot 

Dir. rowOffset 'distance between I tops of) rows in the schedule 

Sub Apply? il ter () 

•create data set o: onpy TV prcgrams that fit into query string :iiters<TY> 
•set number of stations and database field determining color 
Dim i As Integer 'counter 



25 



30 



If InStrt filters (TV) , -Station") Then 
NStation * 10 

'note: need better mechanism for displaying favorite channels 
colorField - "Type" 
Else 

NStation = MaxStation 
colorField « "Category" 
End If 

35 For i = 1 To NDays 

ailDataU) .Filter = filters(TV) 

Set f i IterData ( i ) » allData ( i ) . CreateSnapshot < ) 
Next i 
End S'-o 

40 Sub ChangeSel (d As String) 

::r current, firstMatch 'as database markers 

Dim success As Integer "boolean 

Dim s As Integer 'station 

Dim TS As long 'time slot 
45 Dim F As snapshot 

Dim a Day As Integer 

Dir. best As Integer 

current • f i 1 :erData ( currDay ) .3ookmark 
Set F = fi IterData (currDay ) 
50 s » F{ "Station - ) 
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TS = TScurrent 
aDay - currDay 
succ ss * False 

7? d « -Right* Then 

•check co immediate right, same time slot 

F.KoveNext 

If Net F . EOF Then 

success = f « " Stat ion * ) = s Ar.d F ■ * StartTS " ) - TS 
End If 

If Net success Then 
•check time slots to right 

shpSlot(TS - TSBegin * 1 - JcurrSay - 1) * slotsPerDay ). FillStyle 
ar.sparer.t 

IblTimetTS - TSBegin - 1 - ( currDay - 1) • slotsPerDay ) . BackStyle 
ar.sparer.t 

While aDay <= NDays Ar.d Net success 
While TS < TSEnd And Not success 
TS = TS + 1 

•check stations at and beiow current 

F.FindFirst Overlap ! TS , TS) * "And Station >= * 4 s 

If F.NoMatch Then 

•take the last station above current 

F.FindLast Overlap (TS. TS) & "And Station < " & s 

success » Not F.NoMatch 

Else 

'save this match and check if stations above are clos 

success ■ True 

best = F { "Station" ) - s 

firstMatch ■ F . Bookmark 

•check previous 

F . FindPrevious Overlap (TS . TS ) 
If F.NoMatch Then 

no previous match, stick with first match 
F. Bookmark * firstMatch 

Else 

If s - F( "Station-) > best Then 
' first match was closer 
F. Bookmark = firstMatch 
End If 
End If 
End If 

Wend 

If Not success Then 

TSBegin ■ TSBegin ♦ 48 

TSEnd - TSBegin - slotsPerDay - 1 

TS = TSBegin - 1 

aDay = aDay * 1 

Set F » f iiterData (aDay i 
End If 

Wend 
End If 
Elself d = "Left" Then 
check to immediate left, same time slot 
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F.MovePr vious 
If Not F.30F Then 

success - t ( ■ Station- ) = s Ar.d F : " FinishTS * ) - TS 
5 End Z f 

Z z Net success Then 

'check previous time slots 

shpSlot (TS - TSBegin ♦ 1 * (currDay - 1) • slocsPerDayl . FillStyle « 
' transparent 

IblTime (TS - TSBegin ♦ 1 - I currDay - 1) * siotsPerDay) .SackSzyle = 
'0 C Transparent 

While aDay >= 1 And Not success '-for each cay tc left 

While TS > TSBegin And Net success 'look for previous si:: this da-, 
TS = TS - 1 

F.FindFirst Overlap (TS. TS) « " And Station >= " i Srr ■ s > 
1S If F.NoMatch Then 

•none with station less than current. Icok fcr first one dewr. 
F.FindLast Cverlap(TS, TS> 
success a Not F.NoMatch 

Else 

success = True 

20 'mark this one and check up 

firstMacch ■ F.3ookmark 
best » F { "Station" ) - s 

F. FindPrevious Overlap (TS . TS) 'will be less than current 

station 

2$ If F.NoMatch Then 

none lower, keep first match 
F . 3ookmark = firscMatch 

Else 

If s - F< "Station") > best. Then 
• first match was closer 
30 F. Bookmark « firscMatch 

End If 
End If 
End If 

Wend 

3S If Nor success Then 'try previous day 

aDay * aDay - 1 
TSBegin » TSBegin - 48 
TSZnd « TSBegin ♦ siotsPerDay - 1 
TS « TSEnd + 1 
Set F « f il terData ( aDay > 
40 End If 

Wend 
End If 
El self d = "Down" Then 
•move devr. within time slot 
4S 'note: should we have option tc only stop at programs that _begin_ in current 

time slot? 

:with exception of ' first cine slot in each day, cf course) 
F.5ookr.ark * current 

F.rmdLNext "t* k Overlap ( TS . TS J * " And Station <> " & Stris) i i" 
success = Not F.NoMatch 
SO Else!: d = "Up" Then 
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■ move down within t ime s:ct 

r.cte: should we have opt icn to only seep at programs that .begin, in current 
- i rr e slot? 

5 (with exception of first time slot in each day, of course) 

F. Bookmark = current 

F.FindPrevious " ! " & Overlap (TS, TS ) » " And Station <> " & Str-. s; i 
success = Not F.NoMatch 
Else If d = "Top" Then 

F . FindFirst Overlap ITS. TS) 
10 success * Not F.XoMacch 

Zlself d ■ "Bottom" Then 

F . Fir.dLast Overlap ( TS , TS) 
success * Mot F.NcMatch 



IS 
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If success Then 
• update 

TScurrent = TS 
cur r Day * a Day 
DispiayProg 

Else 

•restore position in data 
f ilterData (currDay) .3ookmark - current 
End If 

'restore other stuff 

TSBegin ■ DateDi f f ( "n" , refDate. (startTime ♦ currDay - 1)) \ 30 
TSEnd « TSBegin - slotsPerDay - 1 

shpSlot (TScurrent - TSBegin * 1 - (currDay - 1) ■ slotsPerDay ). FillStyie « 
C ' scl-d 

IbiTime' TScurrent - TS3egin * 1 * (currDay - 1) • slotsFerDay ) . BackStyle = 
1 * opaque 

End Sub 

Sub DispiayProg () 

•highlight location of current program 
•put info for current program in info box 

Dim F As snapshot 

Dim msg As String 



Set F = f ilterData tcurrDay ) 

highlight program 
shpProg [ 0) .Visible « False 
-*0 selector .Visible * False 

Position shpProgO), F(-Start">, F("Finish"). F( *Scac:3n" I 
ZPlace Z . selector. shpProg ( C ■ 
snpProg : 0 ). Visible * True 
selector . Visible » True 



* set ressage 

ns; = StaticnStrmgiF( "Station- : ; & " - " * F< -Title") & " 
rr.s? - rr.sg & Format \T( ' Start m ) . "h:mm AM.PM") 
rr.sg = msg i " tc " U Format ( F { " Finish" ) . -h:mm AM.'PK": 
Set Info msg. Color ' F (colorField) Mod 9) 
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Sue Do Preview ( j 
C;r.scruc: ar. appr tor iat preview message and display 
5 Zir. msg As String 

r.sg « "Station: " _ Scan ionSt ring ( filterData (c^rrOay) ( "Station" ) ) 
r.sg « r.sg & Chr(13) & "Title: " fc filterData (currDay} ; -Title" » i Chr!12: 
-sg » r.sg i Category's t ring ( ( f il terData i currDay i f "Type • )) . 
: f il terCata { currDay: ». "Category" > * * 
/0 rr.sg * r.sg t Chr :13) & -Time: - & Forr.at • f i I terDatat currDay ) » * Start - • . *r--. dyv 

h:r- AM/PMM 

nsg * rr.sg & ChrI13) * ■ to - & Fcncac i filterData ! currDay m - r.nish" • . -h:mir. 

AM ?M- ) 



/5 



'show popup with preview message 
popup . Caption = r.sg 
popup. Top = IblTimet 1) .Top ♦ 2 ■ lblTime < 1 ). Height 
popup. Left = 2 

popup. Width « slotsPerDay • NDays - 3 
popup . Visible = True 
20 inPreview = True 

End Sub 

Sub DoSelecc ( J 

'set data for selection and go to TV 
2S userStacion = f il terData ( currDay M •Station" ) 

userStart » filterData < currDay 1 ("Start") 

retumCode = TOTV 

Me .Hide 
End Sub 

30 sub Fcrr._Acc.vate ( )• 

Dim i As Integer 'counter 
Static saveFilter As String 
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If saveFilter » filters ( currDomaini Then sameFilter - True 
saveFilter » filters < currDomain) 

SetStatus "Evening TV: - & currFilter (TV) . greyCOLOR 
•note: -Evening TV" label would be variable 
If inPreview Then 

popup. Visible = False 
inPreview = False 
40 End If 

If newUser Then 

popup. Caption » "Press 'category* to change the kind of programs diplayec. 
popup. Visible « True 

•note: ought to make popup go away on timer as well as butter, press 
newUser « False 
End If 

If sameFilter Then 

restore darkened tine-slot 
If TScurrent > 0 Then 

50 
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shpSloc (TScurrer.t - TSBegin - 1 - (currDay - 1) * slotsPerDay > . F 1 1 IStyie 

= : • sc = 

lblTime(TScurrent - TSBegir. - 1 * {currDay - 1) • slotsPerDay >. BackScyle 

= 1 ' solid 
5 End If 

Else 

' ur.ioad old program shapes and redo display 
Setlr.fo "Loading program ir.f ormaticr. . . . * , GREY 
shpProg ( C }. Visible = False 
10 IblDay JO .Visible = False % 

IbiriTie(O) .Visible = False 
shpSlct (0) .Visible « False 
selector .Visible = False 
For i » 1 To KProgs 

Cnlcad s hp Prog I i ) 
Next i 
A PP lyFi 1 ter 
KakeDisplay 
sameFil ter = True 
End If 
20 Er.c Sub 

Sub Fcrr._KeyDown ( KeyCcde As Integer. Shift As Integer: 

note: always turn off the black slot before leaving, so it doesn't mess up 
later views 

Dirt Index As Integer 
Dir. n As Integer 
Select Case KeyCode 
Case Asc I *Q" ) 

End 
Case 3_BACK 

30 shpslot (TScurrent - TSBegin • 1 ♦ (currDay - 1) * slotsPerDay ). FillStyle = 

1 * transparent 

lbl?ime!TScurrer.t - TSBegin - 1 - (currDay - li * slotsPerDay >. BackStyle = 
0 * transparent 

returnCode = BACK 
Me. Hide 
Case 3_HE1? 

sameFilter * True 
InvokeHelp 
Case B_?REVIEW 

If inPreview Then 
40 popup . Visible ■ False 

inPreview = False 

Else 

inPreview » True 
End If 
Case 9_RIGHT 

If N*ct f il terDatai currDay I . EOF Then Changes el {"Right"! 
Case S_LEFT 

I i N'ot filterData i currDay >. EOF Then ChangeSel -"Leff) 
Case 3_L'P 

If Not fil ter Daca ( currDay ) .EOF Then ChangeSel ("Up") 
SO Case B^DOWN 
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If Not f ilterData i currDay) .EC? The- ChangeSel (-Down") 

Case B_ SELECT ^ _ 

shpSlot(TScurrer.c - TSBegin - 1 - -currDay - 1) • slotsPerDay > . r i.-* ./.« 

1 • transparent _ . ... . . 

5 lblTime(TScurrer.t - TSBegin - 1 - icurrDay - 1> • slotsPerDay) .Bac.<;-j - = 

■Z ' transparent 

If Not f i 1 cerData ( cur r Day ) . EOF Then DoSelect 
Case 3 PAGEDOWN 

If Not fiiterDataJcurrDay) .EOF Then ChangeSel < 'Sorter-- ; 

10 Case B — PAGEUP 

If Not fi IterData ( currDay ) .EOF Then ChangeSel (-Top- 
Case B_ FILTER , _ _ ----- 

shpSlotiTScurrent - TSBegin * i * (currDay - 1) • slotsPerDay . . 1 . i* ty.e 

1 " transparent . _ 

lblTime(TScurrent - TSBegin ♦ 1 * (currDay - 1) • slotsPerDay . . Bac*Sty-e 

C ' transparent 

retumCode = Filter 
Me. Hide 

" aSe shpSlot(TScurrent - TSBegin. - i * (currDay - 1) • slotsPerDay ). Fil -Style 

20 1 • transparent . 

lblTime(TScurrent - TSBegin * 1 - (currDay - 1 1 * slotsPerDay ). Sac '.Style 

0 ' transparent 

returnCode - SHORTCUT 
Me. Hide 
End Select 
If inPreview Then 
DoPreview 

Else 

popup .Visible - False 
End If 
30 End Sub 

Sub Form_Load ( ) 

Dim d As Integer, i As Integer, n As Integer 'counters 
Dim t 'as time 
• set form colors and fonts 
Me.BackColor » formCOLOR 
shpProg(O) . BackColor - BorderColor 
IblDay (0) . BackColor * backgrcundCOLOP. 
selector . BorderColor = BorderColor 
dayLine(O) .BorderColor = divideCOLOR 
40 IblTimetCi .ForeColor « siotCOLOR 

shpSlot(C) .BorderColor * siotCOLOR 
If displayMode - "TV* Then 

IbiDay(C) .FontSize = small FONT 
iblTime(C) .FontSize » small FONT 
popup . FontSize = mediumFONT 

Else 

IblDay (0> .FontSize » largeFONT 
IblTtme(O) .FontSize » largeFONT 
popup. FontSize = largeFONT . 
End If 

SO set scale and size objects 
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SizeAForir. M . DispTop. DispKeight. DispLeft, DispWidth 
y.e . Scale JO. 0>-(50O, 500) 

SizeAControl lblDay(O). 0, lblKEIGHT. 0. SCO 

SizeACcntrol lblTime ( 0 ) , lblKEIGHT. lblKEIGHT, C. 50 
5 SizeAControl shpSlot(O). 2 • IblHEIGHT * .5 • topGAP. 500 - 2 • lblHEIGHT, 0. 5C 

SizeAControl popup, 250. 200. 250, 200 

selector . BorderWidth « 1 

cayLir.e(O) . Yl = 0 

cayLir.e(C> . Y2 =* 500 
10 ' ir.it variables 

same? liter * False 

same View = False 

ir.Preview » False 

NProcs » C 

XOays * 5 'five week days 

slot s PerDay • 6 'three hours. 6 half-hour slots 
NSlots » MDays * slotsPerDay 

startTiroe = fakeToday ♦ CVDate<"7:CC PM* > 'time would be variable and set at 

activate 

startTime * DateAddfd", 2 - Weekday ; startTime > . startTime) 'set scartTime to 
20 Monday* =2) 

•set time slot scale and place the permanent objects 
Me. ScaleWidth « NSlots 
IblTime(O) .Width » 1 
shpSlot (0) .Width = 1 
For i = 1 To NDays 

'place and caption day labels 
Load IblDay(i) 

SizeAControl lblDaydJ, 0, IblHEIGKT. slotsPerDay • (i - 1). slotsPerDay 
IblDay i i) .Caption ■ DayStringd * 1. "short") 
IblOayi i) .Visible = True 
30 Next i 

For d = 1 To NDays 

For i = 1 To slotsPerDay 

n - id - 1) • slotsPerDay ♦ i 
'place time slot dividers 
Load shpSlot(n) 
35 shpSlot (n) .Move n - 1 

shpSlot '.n) . ZOrder 
shpSlot (n) .Visible * True 
'place time labels 
Load lblTime(n) 
40 lblTime (n) .Move n - 1 

IblTime(n) . ZOrder 

t ■ DateAddCn", 30 * (i - 1). startTime: 
lblTime (n) .Caption ■ TimeLabeKt) 

'time captions would be set at activate since they could change (when 
sarr.eView false) 
45 shpSlot (it. FillStyle * 1 ' transparent 

lblTime ( i ). SackStyle * 0 ' transparent 
IblTime(n) .Visible « True 
Next i 

place day separators, but don't show yet 
so If d < N*Days Then 
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Load dayLine(d) 

dayLine <d) .XI » d • slotsPerDay 
dayLine(d) . X2 = d • slotsPerDay 
End Zi 
Next c 
ZnputCata 
Form_Ac t i vate 
same View = True 
Zr.d Sub 

Sub Ir.putData ( ) 
•part of form_loac 

opens the database and creates allData snapshots 

Dim DB As database 

Dim RefSnap As snapshot 

Dim i As Integer 

Set DB « OpenDat abase iTVDB) 

•assumes data already sorted by station, start 



•get reference date and number of stations 
Set RefSnap * DB . CreaceSnapshot ( " Reference " ) 
RefSnap.FindFirst "Name * 'Date'- 
refDate = DateValue ( RefSnap ( 'Data " 1 > 
2S RefSnap.FindFirst "Name * ' NStatior.s * ' 

MaxStation * Val (Ref Snap( "Data" ) ) 

Set allData(C) « DB . CreateSnapshot ( ■ Programs " ) 

•create snapshots of all programs for each weekday at fixed time 
30 • ciM would be variable and these wculd have to be created at activate 

T53egin "= DateDi f f i " n " . refDate, startTime) \ 30 
TSEnd * TSBegin ♦ slotsPerDay - 1 
For i = 1 To 5 

allData(O) .Filter = Overlap (TSBegin * 48 • (i - i>. TSEnd * 48 • :i - 
•48 time slots/day 

Set allData(i) = allData ( 0 1 .CreateSnapshot ( ) 
Next i 

Set allData(C) = Nothing 'won't be needing everything since time is rixec 
End Sub 

4 0 Sub MakeDi3play () 

'create the visual schedule of programs from the filtered data 
Dim d As Integer 'day 
Dim z As Integer 'counter 
Dim F As snapshot 'ccnvenience 

Dim hasProgs As Integer •remember the first day that has programs in it 



•set cimes showing 
It Mot s a me V i ew Then 

wculd change time labels here 

Zr.c I i 
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'place program shapes 
hasProgs = 0 

c = 0 • init count of shpProgs 

On Error GoTo ErrorHandler 'if we run out of shpProgs to allocate 
For d * 1 To NDays 

currDay * d 

Set F = f ilterData (d) 

'create a shape control for each TV program .in the data 
I f Not ? . EOF Then 

F . MoveFirs t 

Do While Not F . EOF 

Load shpProgtc ♦ 1) 

c » c ♦ 1 * increment only after allocate succeeds 
shpProg(c) . BackColor ■ Color ! F ( colorField) Mod 91 
Position shpProg(c). FCStarc"), FCFinish"), F ( "Station" ) 
shpProg(c) . ZOrder 
shpProg(c) .Visible * True 
F.MoveNext 

Loop 

F . MoveFirst 

If hasProgs = D Then hasProgs = d 'remember the first day with programs 

n it 

End If 
Next d 
cveCn: 

Cn Error GoTo 0 'quit trapping errors internally 
•make day lines visible on top 
For d » 1 To NDays - 1 

dayLine(d) .ZOrder 

dayLine(d) .Visible = True 
Nex: d 

'initialize stuff 
NProgs = c 
currDay » hasProgs 
shpProg ( 0 ) . ZOrder 
selector . ZOrder 
Zt currDay > C Then 

•set time slot begin and end numbers for current day 

TSBegin « DateDif f t "n* • refDate. startTime) \ 30 * 48 * (currDay - 1) 

TSEnd = TSBegin ♦ slotsPerDay - 1 

TScurrent = TSBegin 

Set F * f ilterData (currDay) 

Do While TScurrent <» TSEnd 

F.FindFirst Over lap ( TScurrent . TScurrent) 

If Not F.NoMatch Then 
DisplayProg 
Exit Do 

End If 

TScurrent * TScurrent ♦ 1 

Loop 

Else 

TSSegin = DateDi f f ( "n" . refDate. startTime] \ 30 
TSEnd = TSBegin ♦ slotsPerDay - 1 
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TScurrer.c = TSBegin 
currDay = 1 
End I f 

shpSlot (TScurrer.t - TSBegin «• 1 * (currDay - 1) • slotsPerDay) .FillStyie = 
Z 'solid 

lblTime(TScurrent - TSBegin 1 «► (currDay - 1) • slotsPerDay) . BacfcStyle = 
1 * opaque 

Exit Sub 

ZrrorHandler : 

If Err - 3 42 Then 



an out oZ room tc allocate program shapes, quit drawing 
Resume MoveOn 

Else 

15 Dim msg 

msg = Error & Chr ( 13 ) & -Resume or Cancel?" 
msg » InputBoxfmsg, 'Error Ccrrec:ion - . -Resume") 
If msg - "" Then Stop 
Resume MoveOn 
End If 
End Sub 



Sub Position (shape As Control, start, finish, station) 
•position a program shape for display 
Dim relativeL. relativeW, dayStart 
25 Dim edge 

•convert a day/time to position in NSlot scale 
dayStart * startTime ♦ currDay - 1 
relativeL = (start - dayStart) • 48 
relative'*? ■ (finish - dayStart) • 48 - relativeL 
'clip shapes off at day boundaries 
If relativeL < 0 Then 

relativeW = relativeW * relativeL 
relativeL * 0 
End If 

If relativeW * relativeL > slotsPerDay Then relativeW * slotsPerDay - relativeL 
35 'set left and width of shape 

edge = (currDay - 1) • slotsPerDay 
shape. Left = relativeL - edge ♦ sideGap 
shape. Width • relativeW - 2 * sideGap 
•enforce minimum width so program is visible 

If shape. Width < MINProgWidth Then shape. Width = MINProgWidth 
'set top according to station 
'note: this scheme only works because stations are named l..n 
rcwCffset « ((500 - 2 * lblKEIGHT - shpProg ( C ). Height ) / NSration) 
shape. Top « shpSlot ( 0 ) . Top ♦ topGAP ♦ (station - 1) * rowOffsec 
End Sub 

4S 



Thus, it will now be understood that there has been disclosed a method and apparatus of finding and selecting a 
program to view from a large schedule of TV programs. While the invention has been particularly illustrated and de- 
scribed with reference to preferred embodiments thereof, it will be understood by those skilled in the art that various 
changes in form, details, and applications may be made therein. For example, color coding of the individual items of 
the reduced representations and of the various entries in the various grid displays could be used to assist the viewer 
in making rapid program selections. Another example is that it is easily within the capabilities of this art to modify a TV 
set by integrating the set top box according to the present invention into it. It is accordingly intended that the appended 
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claims shall cover all such changes in form, details and applications which do not depart from the true spirit and scope 
of the invention. 

Claims 

1. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 

filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to at least a portion of the subgroup in the 
display means; and 

group item selection means for selecting a group item by selecting the representation thereof in the display 
in response to the pointing means. 

2. The apparatus set forth in claim 1 wherein: 

the pointing means need only be movable from one representation to an adjacent representation. 

3. The apparatus set forth in claim 1 wherein: 

the means for displaying the representations comprises: 

first means for displaying the representations in a single dimension; and 

second means for displaying the representations in two dimensions. 

4. The apparatus set forth in claim 1 further comprising: 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced rep- 
resentation of the portion of the group being presently displayed by the display means. 

5. The apparatus set forth in claim 4 wherein said reduced representation is two dimensional. 

6. The apparatus set forth in claim 5, wherein said interactive movable pointing means includes a remote control 
having: 

a first pair of buttons to control changes in location in the display in a first direction: and 
a second pair of buttons to control changes in location in the display in a second direction. 

7. The apparatus set forth in claim 4 wherein said reduced representation is a two dimensional representation of a 
three dimensional representation, the third dimension being location within a logical stack of items having at least 
one common property. 

8. The apparatus set forth in claim 7 wherein each item of a logical* stack have viewcig timeslot as one common 
property. 

9. A method comprising the steps of: 

receiving program schedule data by a set top box via a same information conductor that conducts program 
information to the set top box: 

filtering said program schedule data in RAM within said set top box; 

said set top box showing a first interactive display on a TV connected thereto presenting a plurality of choices 
for filtering said program schedule data to a viewer; 

in response to an interactive selection by said viewer, filtering said program schedule data into a first subgroup 
of program schedule data: 

also in response to an interactive selection by said viewer, said set top box showing a second interactive 

display on said TV having a second plurality of choic s for filtering said program schedule data; 

in response to a second interactive selection by said viewer, filtering said first subgroup into a second subgroup: 



93 



EP 0 735 749 A2 



and 

also in response to a second interactive selection by said viewer, said set top box showing a third interactive 
display on said TV having a representation of each program item of said second subgroup. 

5 10. The method of claim 9, wherein said receiving program schedule data step further comprises the steps of 

receiving a first portion of said program schedule data via said set top box; and 
receiving a second portion of said program schedule data at a later non -contiguous time. 

io 11. The method of claim 9, further comprising the step of: 

in response to an interactive highlighting of a representation of a program item of said second subgroup, 
displaying a title thereof. 

12. The method of claim 11, further comprising the step of. 

is in response to an actuation of a select button of a remote control, displaying a preview of said highlighted 

program. 

1 3. The method of claim 1 2, further comprising the step of: 

in response to a second actuation of said select button of said remote control, switching said set top box to 
20 display a TV program corresponding to said highlighted representation. 

14. The method of claim 12, further comprising the step of: 

in response to a second actuation of said select button of said remote control, storing a command to switch 
said set top box to display a TV program corresponding to said highlighted representation in when that TV program 
25 begins. 

15. A method comprising the steps of: 

receiving program schedule data for at least 300 individual channels for a time period of at least a week; 
30 storing said program schedule data in local memory for rapid sorting and retrieval in a database format; 

filtering the program schedule data in response to interactive user inputs into a subgroup of the program 
schedule data; 

displaying the subgroup of the program schedule data for the user's review; and 

interactively selecting a program from the subgroup of program schedule data for viewing on a TV screen. 

35 

16. A method for choosing a desired program from a large schedule of programs whose data is stored in a local 
memory, comprising the steps of: 

displaying a vertically cascaded group of cards with each card representing a program of a particular time and 
40 channel; 

displaying a selection window located around a subgroup of said group of cards; 

displaying a two-dimensional grid adjacent to said vertically cascaded group of cards in which said subgroup 
of the programs represented by said vertically cascaded group of cards are shown in greater detail; 
displaying a first active area within said selection window highlighting one of said subgroup of programs; 
45 displaying a second active area within said two-dimensional grid, said second active area being located around 

and highlighting greater details of the program highlighted in said first active area; 

moving said first active area in a vertical direction in response to vertical direction arrows to a viewer's input 
of a remote control; and 

selecting a desired program by moving said active area to said desired program and actuating a select button 
so until said set top box makes said selection. 

17. The method according to claim 16, further comprising the steps of 

after said active area is moved one location outside of said selection window by inputs from said viewer, 
moving said selection window to a contiguous subgroup to which said active area has moved. 

55 

18. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 
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filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to the subgroup in the display means: 
group item selection means for selecting a group item by selecting the representation thereof in the display 
in response to the pointing means: and 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced repre- 
sentation of the portion of the group being presently displayed by the display means: 
said reduced representation displaying means displaying a two dimensional representation of a three dimen- 
sional representation, a third dimension being represented as a logical stack of items having at least one 
common property. 

The apparatus set forth in claim 8 or 18, wherein said interactive movable pointing means includes a remote control 
having: 

a first pair of buttons to control changes in location in the display in a first direction: and 

a second pair of buttons to control changes in location in the display in a second direction: and 

a third pair of buttons to control changes in location within the logical stack. 
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FIG. 3 
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